Public Class FolderBrowserDialog
	Inherits Windows.Forms.Design.FolderNameEditor
 
	Private fb As New Windows.Forms.Design.FolderNameEditor.FolderBrowser()
	Private fbReturnPath As String
	Public Description As String
 
	Public ReadOnly Property ReturnPath() As String
		Get
			Return fbReturnPath
		End Get
	End Property
	Public Function ShowDialog() As DialogResult
		Dim result As DialogResult
		fb.Description = Me.Description
		fb.StartLocation = FolderBrowserFolder.MyComputer
		result = fb.ShowDialog()
		If (result = DialogResult.OK) Then
			fbReturnPath = fb.DirectoryPath
		Else
			fbReturnPath = ""
		End If
		Return result
	End Function
End Class

Dim QuellFolder As New FolderBrowserDialog()
 
 QuellFolder.Description = "Bitte den Quellordner angeben."
 
        If QuellFolder.ShowDialog = DialogResult.OK Then
            PFAD = QuellFolder.ReturnPath
            If PFAD <> "" Then
                lblPfad.Text = PFAD
            Else
                PFAD = "C:\"
                lblPfad.Text = PFAD
            End If
        End If