-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

 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 !

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

VB RULEZ !

Private Sub cmd_sc1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_sc1.Click
 
    Using Fld As New FolderBrowserDialog
 
        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
 
        If Fld.ShowDialog() = DialogResult.OK Then 
            sc1_txt.Text = Fld.SelectedPath
        End If
    End Using
End Sub