vb我不熟，请教个简单问题

try something likePublic Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type
'BROWSEINFO.ulFlags values:
Public Const BIF_RETURNONLYFSDIRS = &H1
Public Const BIF_DONTGOBELOWDOMAIN = &H2
Public Const BIF_STATUSTEXT = &H4
Public Const BIF_RETURNFSANCESTORS = &H8
Public Const BIF_BROWSEFORCOMPUTER = &H1000
Public Const BIF_BROWSEFORPRINTER = &H2000
Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long'In code...
Dim bInf As BROWSEINFO
Dim RetVal As Long
Dim PathID As Long
Dim RetPath As String
Dim Offset As Integer
'Set the properties of the folder dialog
bInf.hOwner = Me.hWnd
bInf.lpszTitle = "Please select a folder to install to:"
bInf.ulFlags = BIF_RETURNONLYFSDIRS
'Show the Browse For Folder dialog
PathID = SHBrowseForFolder(bInf)
RetPath = Space$(512)
RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
If RetVal Then
  'Trim off the null chars ending the path
  'and display the returned folder
  Offset = InStr(RetPath, Chr$(0))
  MsgBox "Folder selection was:" & Chr$(10) & Chr$(10) & _
  Left$(RetPath, Offset - 1), vbInformation, "SHBrowseForFolder Demo"
Else
  MsgBox "User pressed cancel!", vbInformation, _
  "SHBrowseForFolder Demo"
End If