＋设为首页 ＋添加到收藏夹
右击Windows桌面上的“我的文档”，选择“属性”,“浏览”后出现的界面如何实现？是否有专门的控件？
Option Explicit
form 中
程序如下:
Private Sub cmdLocation_Click() 为 command
Dim LocDir As BROWSEINFO
Dim RetVal As Boolean, PidLoc As Long
Dim Path As String
Dim Pos As Integer
LocDir.hOwner = Me.hWnd
LocDir.lpszTitle = "请选择一个目录："
LocDir.ulFlags = BIF_RETURNONLYFSDIRS
PidLoc是一个返回值，指向用户定位的目录对应的ID，还不是目录
PidLoc = SHBrowseForFolder(LocDir)
Path = Space(512)
用SHGetPathFromIDList()API把PidLoc对应的ID转换成对应的目录
RetVal = SHGetPathFromIDList(ByVal PidLoc, ByVal Path)
If RetVal Then
去掉后面多余的ASCII码为0的字符
Pos = InStr(Path, Chr$(0))
txtPath就是要求输入路径的那个文本框
txtPath.Text = Left(Path, Pos - 1)
txtPath.SetFocus
End If
End Sub
