50分的简单问题。。。。

[Jason_guo]

如何打开一个目录，就像普通光碟里面的“浏览CD”按钮一样？

[Jneu]

' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop

[Jason_guo]

最先Jneu(沧海桑田)，可是太麻烦了。所以分数如下：
Jneu(沧海桑田) ： 20
wxj_lake(蔚蓝的风)： 15
uguess(uguess) ： 15

[wxj_lake]

Private Sub Command1_Click()
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path, vbNormalFocus
End Sub

App.Path 是工程所在目录。你可以用任意目录，文件，或者URL，都可以打开。

[icy_csdn]

为什么不用Commondialog通用对话框啊！

[uguess]

Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, vbNormalFocus
End Sub

App.Path 是工程所在目录。