In that case try this...
SidCode:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim FolderBrowserDialog1 As New FolderBrowserDialog With FolderBrowserDialog1 .SelectedPath = "c:\" .Description = "Select the source directory" If .ShowDialog = DialogResult.OK Then Textbox1.Text = (.SelectedPath) End If End With End Sub




Reply With Quote