简单问题~~~~~如何打开指定目录下的文件夹?谢谢!
如何打开指定目录下的文件夹?
就像有些光盘运行的时候有一个Autorun程序,里面有个按钮Explore CD,按一下,就打开相应文件夹了!
谢谢!
问题点数:20、回复次数:5Top
1 楼liuyi3000(Dabo Liu)回复于 2003-11-03 11:19:42 得分 0
studyingTop
2 楼cuizm(射天狼 http://www.j2soft.cn/)回复于 2003-11-03 11:25:38 得分 20
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "C:\", vbNullString, vbNullString, 1
End SubTop
3 楼yunfeng007(一水寒)回复于 2003-11-03 11:28:52 得分 0
Shell "Explorer.exe c:\"Top
4 楼yanzeyuan(流星蝴蝶)回复于 2003-11-03 12:09:19 得分 0
谢谢!Top
5 楼eyecao(小强)回复于 2003-11-03 12:19:30 得分 0
如果不需要在打开文件夹时另建一个新的窗体,则可参考下面的示例:
这里用添加DirListBox 控件和FileListBox 控件演示操作结果:
Private Sub Command1_Click()
Dir1.Path = "\\server\e\SQL" '右边字符串格式为 \\计算机名称\盘号\文件夹名称
File1.Path = "\\server\e\SQL"
End Sub
其实,只要设定相应的path路径,指向你所需要指向的文件路径就可以了!
小弟也是VB新手,如有错处,敬请各位大侠指出!!!
Top




