易截截图软件、单文件、免安装、纯绿色、仅160KB

vb保存数据问题,选择路径保存 - VB / 基础类

我建立了个list1 drive1 dir1 向list里面添加了几行数字,希望通过选择dir1中的文件夹“新建文件夹2”,把list1中的数字保存在新建文件夹2中去,用的写入语言是input,并且保存为doc文档,但我不会获得新建文件夹2的路径。我的已有程序为:Dim fs As New FileSystemObject, dr As Drive, fl As Folder, s As String
Private Sub Command1_Click()
Set fl = fs.GetFolder(Dir1.Path)
ms = "新建文件夹名:"
ms = ms & Chr(13) & Chr(13) & "当前文件夹是:"
a = InputBox(ms & fl.Path, "新建", "新建文件夹")
If Len(Trim(a)) <> 0 Then Set fl = fs.CreateFolder(a)
Dir1.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
n = Form1.List1.ListCount - 1

Open \数据.doc For Output As #1
For i = 1 To n
Print #1, Form1.List1.List(i)
Next i

End Sub

Private Sub Dir1_Change()
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo 100
Dir1.Path = Drive1.Drive
ChDrive Drive1.Drive
ChDir Dir1.Path
100
MsgBox ("驱动器无效!!大哥!")
End Sub

红字部分是我想选择的路径,怎么从dri1中获得并将数据存入这个文件夹呢?大侠们拜托了!

帮忙顶一下

就像另存为一样,我想选择个路径,而不是一个固定路径!

可以用 另外一个控件 Microsoft common dialog control 6.0
commondialog
可以直接得到filename


相关问答:

为什么用VB改变不了工具栏按扭的宽度 - VB / 控件

为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了

大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。

回复 ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb 中 - VB / 基础类

dim a as string,b as string,c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串,而不存在c字符串

看看i ......

VB下OCX可否实现如下功能? - VB / 网络编程

我想用VB做一个OCX(纯菜鸟,临时需要用VB做点东西,特来请教),A用户(IP:192.168.0.1)与B用户(IP:192.168.0.2)进行点对点的发送接收消息
要求采用OCX方式,比如A用户知道B用户IP,我直接传参(B的IP)至OCX ......

求助:C代码change toVB代码 - VB / 基础类

挺繁琐,之前发的帖子,分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号