Listbox mit Dateien füllen und Ordner
19.10.2021 12:29:01
Andreas
in meinem Code fülle ich eine Listbox2 mit folgendem Teilcode:
....
'Listbox2 entsprechend mit Dokumenten befüllen
ListBox2.Clear
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "0cm;10cm"
If Dir(sPfadAkte, vbDirectory) nullstring Then
sDatei = Dir(sPfadAkte & "*.pdf") '* in PDF ändern, um einzugrenzen
If sDatei nullstring Then
'Wenn PDF-Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an:
Do While sDatei ""
With ListBox2
.AddItem
.List(.ListCount - 1, 0) = sPfadAkte
.List(.ListCount - 1, 1) = sDatei
sDatei = Dir()
End With
Loop
usw.
Mit Dblck Event kann ich dann die Datei auswählen, dass sie direkt geöffnet wird (spfadAkte ist da der PFad der mitgegeben wird). Soweit funktioniert alles.
Ich hätte in der Liste der PDFs gerne noch einen zusätzlichen Eintrag wie zb: "Grundpfad öffnen" an erster Stelle, damit ich auch den übergeordneten Ordner im Explorer geöffnet bekomme. Leider bekomme ich das nicht hin, dass mir der Eintrag in der Liste angezeigt wird.. Was müsste ich in meinem Code hinzufügen?