ich habe eine Frage zum öffnen eines Pfades aus der UserForm und ListBox.
Ich lasse mir Dateien in meiner ListBox aus einem Pfad mittels Code anzeigen.
Private Sub UserForm_Initialize()
Const Verz = "C:\Antrag\Reservierungen"
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei In FSO.getfolder(Verz).Files
Me.ListBox1.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ListBox1.AddItem Ordner.Name
Next
End Sub
Nun wäre es sehr schön, wenn man doppelt auf einen Eintrag der ListBox klickt sich hier auch die Datei öffnen würde.
Besteht diese Möglichkeit? Falls ja, hat jemand eine Lösung für mich?
Liebe Grüße Lisa