Code Bank: Browseforfolder, Getfolderlocation

[~*McoreD*~]

Browse for Folder and get the Folder Name.

Change the cmdBrowse_Click() event to this:

Code:

Private Sub cmdBrowse_Click()

Dim fret As Long
Dim buffer As String, folder As String
Dim bInfo As Browseinfo
'---------------------
    bInfo.hwnd = Me.hwnd
    bInfo.pszDisplayName = Space(255)
    bInfo.ulFlags = &O1
    bInfo.iImage = 0
    bInfo.lParam = 0
    bInfo.lpfn = 0
    bInfo.pidlRoot = 0
    bInfo.lpszTitle = "Select the folder of your choice."
    buffer = Space(255)
    fret = SHGetPathFromIDList(SHBrowseForFolder(bInfo), buffer)
    buffer = RTrim(buffer)
    folder = Left(buffer, Len(buffer) - 1)
 &nbsp; &nbsp;If folder <> vbNullString Then 'user selected OK
 &nbsp; &nbsp; &nbsp; &nbsp;If Right(folder, 1) <> "\" Then folder = folder + "\"
 &nbsp; &nbsp;Path = Mid(folder, 1, Len(folder) - 1)
 &nbsp; &nbsp;txtRemotePath.Text = Mid(Path, InStrRev(Path, "\") + 1)

End If
End Sub