---

Hallo zusammen!

Ich habe ein Programm, in dem ich einige Pfadzuweisungen per Ordnerauswahldialog vornehmen muß.

Per Buttonklick rufe ich dieses auf:

Code:

---

'###Ordner-Auswahl-Dialog aufrufen-----------------------------------
Public Sub cmdSV_Click()
Dim oShell As Object
Dim oFolder As Object
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
    If Not oFolder Is Nothing Then
        TextBox1.Value = oFolder.Self.Path
    End If
End Sub

---

Dieses müßte ich ja nun für jeden Button anlegen.
Könnte man dieses als Funktion oder als Klassenmodul anlegen, um das ganze zu verkürzen?

Code:

---

Public Sub cmdSV1_Click()
    If Not oFolder Is Nothing Then
        TextBox2.Value = oFolder.Self.Path
    End If
End Sub

---

Hätte da jemand ein Beispiel für mich.

Vielen Dank im voraus.

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Dirk,

machs doch so:

Code:

---

Private Sub CommandButton1_Click()
TextBox1.Value = BrowseForFolder()
End Sub
Public Function BrowseForFolder() As String
Dim oShell As Object
Dim oFolder As Object
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1)
    If Not oFolder Is Nothing Then
        BrowseForFolder = oFolder.Self.Path
    End If
End Function

---

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Carsten!

Danke Dir. 

Gruß

Dirk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP