Private Sub Command1_Click()
    Dim MyShell   As New Shell  '申明并实例化SHELL对象
    Dim MyFolder  As Folder     '文件夹对象
    '显示文件夹浏览对话框
    Set MyFolder = MyShell.BrowseForFolder(0, "请选择文件夹：", 0)
    '如果该对象释放则退出过程，否则输出文件夹路径
    If MyFolder Is Nothing Then Exit Sub
    MsgBox MyFolder.Self.Path

End Sub

想让文本框里显示文件名 代码怎么写啊？

好像运行不了哦  

Private Sub Command1_Click()
Dim MyShell  As New Shell

Dim MyFolder As Folder
Set myforlder = MyShell.browseforfolder(0, "请选择文件件:", 0)

 If myforlder Is Nothing Then End

 MsgBox myforlder.self.Path

 


 
End Sub

用户类型未定义啊   

text1.text=MyFolder.Self.Path

一个Folder对象包含了一个指定文件夹的所有信息：子目录，其中的文件等等。使用items方法可以返回一个文件夹项目集合（FolderItems集合），这个集合里有指定目录中的所有子目录和文件。

---- FolderItems集合有一个count属性，可以通过它得到子目录和文件总数，这样你就能用一个“循环语句”历遍目录下的所有项目。同时你就可以用item方法返回一个FolderItem对象，对一个文件夹或文件进行操作，item方法有一个可选长整数参数，用来对集合中的项目索引。有了FolderItem对象，就能得到文件夹和文件的各种信息。FolderItem对象有如下主要属性：

GetFolder ：如果项目是文件夹，就得到一个Folder对象

IsBrowsable ：如果可以浏览就为True，否则为False

IsFileSystem ：如果是系统文件夹或文件就为True，否则为False

IsFolder ：如果是文件夹就为True，否则为False

ModifyDate ：访问或更改的日期

Name ：文件或目录名

Path ：文件或目录的路径

Size ：文件的大小

Type ：文件的类型

Dim MyShell As Shell
Dim myFolder, myFolders
Set MyShell = New Shell

Set myFolder = MyShell.BrowseForFolder
(Form1.hWnd, "请选择一个文件夹", 0)
    Set myFolders = myFolder.Items()
    List1.Clear
   
    For i = 0 To myFolders.Count - 1
        List1.AddItem myFolders.Item(i).Name
    Next I

Set wshShell = CreateObject("WScript.Shell")
Set wshLink = wshShell.CreateShortcut("c:\*.*")
GetTarget = wshLink.TargetPath
msgbox GetTarget