50分的简单问题。。。。

Jason_guo 2001-12-12 11:31:45
如何打开一个目录,就像普通光碟里面的“浏览CD”按钮一样?
...全文
63 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
uguess 2001-12-13
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Shell "explorer.exe " & App.Path, vbNormalFocus
End Sub

App.Path 是工程所在目录。
icy_csdn 2001-12-13
  • 打赏
  • 举报
回复
为什么不用Commondialog通用对话框啊!
wxj_lake 2001-12-13
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Shell "rundll32.exe url.dll,FileProtocolHandler " & App.Path, vbNormalFocus
End Sub

App.Path 是工程所在目录。你可以用任意目录,文件,或者URL,都可以打开。
Jason_guo 2001-12-13
  • 打赏
  • 举报
回复
最先Jneu(沧海桑田),可是太麻烦了。所以分数如下:
Jneu(沧海桑田) : 20
wxj_lake(蔚蓝的风): 15
uguess(uguess) : 15
Jneu 2001-12-12
  • 打赏
  • 举报
回复
' 显示 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
相关推荐
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-12 11:31
社区公告
暂无公告