BetaONE will rise again!


 
Prev Previous Post   Next Post Next
  #2  
Old 30th Dec 03, 02:59 AM
~*McoreD*~'s Avatar
~*McoreD*~ ~*McoreD*~ is offline
Super Moderator
 
Join Date: Jul 2002
Location: Australia
Posts: 2,902
~*McoreD*~ is an unknown quantity at this point
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
Reply With Quote
 


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 11:11 PM.


Design by Vjacheslav Trushkin for phpBBStyles.com.
Powered by vBulletin® Version 3.6.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.