
保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo.exe,哪么文件默认保存到d:\work\c\test,利用VB文件夹列表框控件设置文件夹路径的方法:
1、新建一个标准工程。
2、单击工具箱中的“文件列表框”控件,在窗体上拖一个出来。
3、单击已经拖好的文件列表框,在d出的代码编辑区中键入如下代码:Dir1.Path="E:\2003\WXPE",即就是要求显示E盘下的2003文件夹中的WXPE文件。
4、退出代码编辑窗口,单击菜单上三角执行按钮,运行该程序。
5、这时会便会发现之前的文件夹路径已经改变到刚才设置的E:\2003\WXPE的上来了。
VB6.0可用DriveListBox
控件和DirListBox
控件组合使用来获取桌面的路径。
DriveListBox
控件,在运行时,由于有DriveListBox控件,所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框,通过它从任一可用驱动器的磁盘文件列表中打开文件。
DirListBox
控件,在运行时,DirListBox控件显示目录和路径。这个控件可以显示分层的目录列表。例如,可以创建对话框,在所有可用目录中,从文件列表打开一个文件。
代码实例:
Private
Sub
Dir1_Change()
File1.Path
=
Dir1.Path
Text1
=
Dir1.Path
End
Sub
Private
Sub
Drive1_Change()
On
Error
GoTo
usErr
Dir1.Path
=
Drive1.Drive
File1.Path
=
Dir1.Path
usErr:
End
Sub
*** 作方法:
运行程序,在DriveListBox
控件中选系统分区磁盘(C:),在DirListBox
控件选下拉目录中选Users(Win7或Win8)-Administrator-Desktop,双击选定的Desktop目录就可获得桌面的路径。
也可使用CommonDialog
控件(“打开”、“另存为”对话框)来获取桌面路径。
CommonDialog控件(“打开”、“另存为”对话框)通过使用
CommonDialog
控件的
ShowOpen
和
ShowSave方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观上与打开对话相似。
Dim Path As StringPath = "%public%"
那么你要打开C:\Users\Public\1.txt,路径地址就是 Path &"\1.txt"
举例而已,希望对你有所启发和帮助
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)