BetaONE will rise again! - Code Bank: Browseforfolder, Getfolderlocation

BetaONE will rise again! (http:\\b1.hcanet.com\forum/index.php)

- Coders Corner (http:\\b1.hcanet.com\forum/forumdisplay.php?f=57)

- - Code Bank: Browseforfolder, Getfolderlocation (http:\\b1.hcanet.com\forum/showthread.php?t=10255)

Browse for Folder and get the Folder Location

Requirements:
CommandButton -- Name: cmdBrowse
TextBox -- Name: txtRemotePath

Code:

Private Declare Function SHBrowseForFolder Lib "shell32.dll" (ByRef lpbi As Browseinfo) As Long

Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long



Private Type Browseinfo

 &nbsp; &nbsp;hwnd As Long

 &nbsp; &nbsp;pidlRoot As Long

 &nbsp; &nbsp;pszDisplayName As String

 &nbsp; &nbsp;lpszTitle As String

 &nbsp; &nbsp;ulFlags As Long

 &nbsp; &nbsp;lpfn As Long

 &nbsp; &nbsp;lParam As Long

 &nbsp; &nbsp;iImage As Integer

 &nbsp; &nbsp;End Type



Private Sub cmdBrowse_Click()



Dim fret As Long

Dim buffer As String, folder As String

Dim bInfo As Browseinfo

'---------------------

 &nbsp; &nbsp;bInfo.hwnd = Me.hwnd

 &nbsp; &nbsp;bInfo.pszDisplayName = Space(255)

 &nbsp; &nbsp;bInfo.ulFlags = &O1

 &nbsp; &nbsp;bInfo.iImage = 0

 &nbsp; &nbsp;bInfo.lParam = 0

 &nbsp; &nbsp;bInfo.lpfn = 0

 &nbsp; &nbsp;bInfo.pidlRoot = 0

 &nbsp; &nbsp;bInfo.lpszTitle = "Select the folder of your choice."

 &nbsp; &nbsp;buffer = Space(255)

 &nbsp; &nbsp;fret = SHGetPathFromIDList(SHBrowseForFolder(bInfo), buffer)

 &nbsp; &nbsp;buffer = RTrim(buffer)

 &nbsp; &nbsp;folder = Left(buffer, Len(buffer) - 1)

 &nbsp; &nbsp;If folder <> vbNullString Then 'user selected OK

 &nbsp; &nbsp;If Right(folder, 1) <> "\" Then folder = folder + "\"

 &nbsp; &nbsp;txtRemotePath.Text = folder

End If

End Sub

Enjoy!

2 Users already said Thank You!

TheMysterio, robinwilson16,

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

'---------------------

 &nbsp; &nbsp;bInfo.hwnd = Me.hwnd

 &nbsp; &nbsp;bInfo.pszDisplayName = Space(255)

 &nbsp; &nbsp;bInfo.ulFlags = &O1

 &nbsp; &nbsp;bInfo.iImage = 0

 &nbsp; &nbsp;bInfo.lParam = 0

 &nbsp; &nbsp;bInfo.lpfn = 0

 &nbsp; &nbsp;bInfo.pidlRoot = 0

 &nbsp; &nbsp;bInfo.lpszTitle = "Select the folder of your choice."

 &nbsp; &nbsp;buffer = Space(255)

 &nbsp; &nbsp;fret = SHGetPathFromIDList(SHBrowseForFolder(bInfo), buffer)

 &nbsp; &nbsp;buffer = RTrim(buffer)

 &nbsp; &nbsp;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