Private Sub cmd_sc1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles cmd_sc1.Click
        Dim Fld As New FolderBrowserDialog
        Dim res As DialogResult
 
        Fld.ShowNewFolderButton = True
        Fld.Description = "Erster Suchpfad - Hier sollten die meisten zu" & _
          "suchenden Dateien liegen und es sollten nur wenig Unterordner darin" & _
          "sein. Je weniger es sind desto schneller läuft die Suche!"
 
        If sc1_txt.Text = "" Then
            Fld.SelectedPath = "C:"
        Else
            Fld.SelectedPath = sc1_txt.Text
        End If
 
        res = Fld.ShowDialog()
        If res = DialogResult.OK Then sc1_txt.Text = Fld.SelectedPath
 
    End Sub

VB RULEZ !