标题: 关于打开指定文件夹的问题 [打印本页] 作者: wjsfeng 时间: 2009-3-20 17:09 标题: 关于打开指定文件夹的问题 我在窗体中建立了一个命令按钮，当我单击的时候就打开指定的文件夹，例如,电脑的【D盘】下有一个文件夹名为【学习文件】，当我单击窗体的【学习文件】这个命令按钮时，显示【学习文件】下的所有文件。
[attach]36794[/attach]作者: chenwm1973 时间: 2009-3-20 17:19
下边的代码是定位除A盘外的U盘或移动硬盘的位置，若不存在则定位程序所在的位置。
Private Sub Form_Load()
For Each drv In fso.Drives
If drv.DriveType = 1 And UCase(drv.DriveLetter) <> "A" Then
sDrvLetter = UCase(drv.DriveLetter)
Exit For
End If
Next drv
If sDrvLetter = "" Then
Drive1.Drive = App.Path
Else
Drive1.Drive = (sDrvLetter) & ":\"
End If
Dir1.Path = Drive1.Drive
sSavePath = Dir1.Path
Label1.Caption = sSavePath
End Sub作者: chaojianan 时间: 2009-3-20 17:23
Dim dr
dr = "explorer " & "D:\学习文件"
Shell dr, vbNormalFocus作者: wjsfeng 时间: 2009-3-20 17:36
谢谢各位的鼎力支持！！！！！！谢谢【chaojianan】和【chenwm1973】