TeaAddictedGeek
Programmer
I'm trying to implement a browser that will show directories, including shares on the networked server.<br>
Here's the code I have so far for my directory/file browser:<br>
<br>
<br>
-----------<br>
Sub drvBrowser_Change()<br>
dirBrowser.Path = drvBrowser.Drive<br>
End Sub<br>
<br>
Sub dirBrowser_Change()<br>
flbBrowser.Path = dirBrowser.Path<br>
lblFilename = flbBrowser.Path<br>
End Sub<br>
<br>
Sub flbBrowser_Click()<br>
If Mid$(flbBrowser.Path, Len(flbBrowser.Path), 1) = "\" Then<br>
lblFilename = flbBrowser.Path & flbBrowser.FileName<br>
Else<br>
lblFilename = flbBrowser.Path & "\" & flbBrowser.FileName<br>
End If<br>
<br>
End Sub<br>
--------<br>
<br>
<br>
Can anyone help?<br>
<br>
<br>
<br>
Here's the code I have so far for my directory/file browser:<br>
<br>
<br>
-----------<br>
Sub drvBrowser_Change()<br>
dirBrowser.Path = drvBrowser.Drive<br>
End Sub<br>
<br>
Sub dirBrowser_Change()<br>
flbBrowser.Path = dirBrowser.Path<br>
lblFilename = flbBrowser.Path<br>
End Sub<br>
<br>
Sub flbBrowser_Click()<br>
If Mid$(flbBrowser.Path, Len(flbBrowser.Path), 1) = "\" Then<br>
lblFilename = flbBrowser.Path & flbBrowser.FileName<br>
Else<br>
lblFilename = flbBrowser.Path & "\" & flbBrowser.FileName<br>
End If<br>
<br>
End Sub<br>
--------<br>
<br>
<br>
Can anyone help?<br>
<br>
<br>
<br>