1.打开文件夹可以用DIRLISKBOX控件啊！
Private Sub Dir_Change()
Dim intI As Integer
Me.File.Path = Me.Dir.Path
End Sub
Private Sub Driver_Change()
Me.Dir.Path = Me.Driver.Drive
End Sub
2.按扭
打开.exe
shell （"c:\xxx.exe"）
打开文件夹c: shell （"explorer c:\"）
示例：
Private Sub Command1_Click()
Dim a
a = Shell("F:\啊啦QQ大盗\alaqq0923.exe")
End Sub
shell "C:/jx.exe"
shell
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024