如何用vb打开指定的文件夹？或者硬盘？

徐阿鹏

好像是dir？但是又好像不对！请指教

eio

什么是打开?

tmtony

如果你指的打开是显示一个文件对话框，选择打开的文件的话。
可使用
1。使用OFFICE自身的文件对话框
   Dim dlgOpen As FileDialog

  Set dlgOpen = Application.FileDialog(msoFileDialogOpen)

  With dlgOpen
    .AllowMultiSelect = True  '你可加上其它设置
    .Show
  End With

2。微软自身的commondialog控件（可参照VB的书籍）
3。也可使用API GetOpenFileName来实现（有多种实现方法，可做成类库）
Private Declare Function GetOpenFileName Lib "COMDLG32" _
    Alias "GetOpenFileNameA" (file As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "COMDLG32" _
    Alias "GetSaveFileNameA" (file As OPENFILENAME) As Long

在ACCESS中建议使用第一种方法，好用且代码少，而且是OFFICE自带的，为何不用呢：）

tmtony

在VB中建议使用第2或第3种方法，如果你不想注册控件，使用类库会好些

徐阿鹏

谢谢！唉！真菜！没看懂！不过第一种方法，好像提示对象未定义！是不是要引用？
例如我只是想打开b盘，并查看里面的文件，然后选择打开我要打开的文件

tmtony

是的，需要引用OFFICE对象。在ACCESS较好，在VB就不太好使：）

cnwang

第一种方法好象只能用于XP

徐阿鹏

我的是xp，具体要引用什么呢？可否告知？谢谢！

eio

直接打开资源管理器不是了事妈？

徐阿鹏

就是！可是人太懒啦