Advertisement
Advertisement
| 06.26.2008 at 08:39AM PDT, ID: 23518648 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: |
Private Sub btnBrowseFolders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowseFolders.Click
Dim theFolderBrowser As New FolderBrowserDialog
theFolderBrowser.Description = "Please locate Directory..."
theFolderBrowser.ShowNewFolderButton = False
theFolderBrowser.RootFolder = Environment.SpecialFolder.Desktop
theFolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
If theFolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.txtFolder.Text = theFolderBrowser.SelectedPath
Else
MessageBox.Show(theFolderBrowser.SelectedPath)
End If
|