易截截图软件、单文件、免安装、纯绿色、仅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 WebBrowser 小问题,请教 - VB / 基础类

vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址

顶下顶下

引用
BeforeNavigate2
好像没有这个吧 vb6.0

BeforeNavigate2
这个可以有,呵呵。
......

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代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

VB如何获得别的程序上的表格内容? - VB / API

我的要求是:通过抓取别的程序上的表格的句柄,然后读取这个表格的内容。
表格句柄(类名:MSFlexGridWndClass)我已抓到,接下来如何读取表格的内容就不会了?求助。

能把代码发来学习下不?
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号