Dateien aus 2 Ordner in Listbox listen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ja bin gerade dabei... musste nur schnell an den PC, hatte vom Handy geschrieben:
sPfadAkte wird der Ordner C:\Test\ übergeben
sPfadAkte2 soll der neue 2. Ordner C:\Test2\ sein, dessen Dateien auch in die Liste aufgenommen werden sollen
Den Code verwende ich bisher:


Private Sub Listbox2_befuellen()
Dim sDatei As String
ListBox2.Clear
ListBox2.ColumnCount = 2
ListBox2.ColumnWidths = "0cm;10cm"
'Prüfen, ob Verzeichnis sPfadAkte vorhanden:
If Dir(sPfadAkte, vbDirectory)  "" Then
'Listeder Dateien zusammenstellen, die im Ordner sPfadAkte vorhanden sind:
sDatei = Dir(sPfadAkte & "*.*")
'Wenn Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an:
If sDatei  "" Then
With ListBox2
.AddItem
.List(.ListCount - 1, 0) = sPfad
.List(.ListCount - 1, 1) = "« Verzeichnis öffnen »"
End With
Do While sDatei  ""
With ListBox2
.AddItem
.List(.ListCount - 1, 0) = sPfadAkte & sDatei
.List(.ListCount - 1, 1) = sDatei
sDatei = Dir()
End With
Loop
'Wenn Ordnerstruktur zwar da, aber keine Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an:
Else
With ListBox2
.AddItem
.List(.ListCount - 1, 0) = sPfad
.List(.ListCount - 1, 1) = "Keine Dokumente in der Akte hinterlegt. Hier klicken, um Verzeichnis zu öffnen."
End With
End If
'Wenn keine Ordnerstruktur vorhanden, dann zeigen wir folgendes an:
Else
With ListBox2
.AddItem
.List(.ListCount - 1, 0) = ""
.List(.ListCount - 1, 1) = "Keine Ordnerstruktur vorhanden. Hier klicken, um anzulegen."
End With
End If
End Sub

Private Sub ListBox2_dblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Listbox2 Event bei Doppelklick - Hyperlink folgen oder Ordnerstruktur anlegen Application.EnableEvents = False Application.DisplayAlerts = False With ListBox2 On Error Resume Next If .List(.ListIndex, 1) = "Keine Ordnerstruktur vorhanden. Hier klicken, um anzulegen." Then Else On Error Resume Next ActiveWorkbook.FollowHyperlink .List(.ListIndex, 0) End If End With Application.DisplayAlerts = True Application.EnableEvents = True End Sub

Option Explicit Const sPfadAkte As String = "C:\Test\" Const sPfadAkte2 As String = "C:\Test2\" Private Sub Listbox2_befuellen() Dim sDatei As String Dim vntItem As Variant ListBox2.Clear ListBox2.ColumnCount = 2 ListBox2.ColumnWidths = "0cm;10cm" For Each vntItem In Array(sPfadAkte, sPfadAkte2) 'Prüfen, ob Verzeichnis vntItem vorhanden: If Dir(vntItem, vbDirectory) "" Then 'Listeder Dateien zusammenstellen, die im Ordner vntItem vorhanden sind: sDatei = Dir(vntItem & "*.*") 'Wenn Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an: If sDatei "" Then With ListBox2 .AddItem .List(.ListCount - 1, 0) = vntItem .List(.ListCount - 1, 1) = "« Verzeichnis öffnen »" End With Do While sDatei "" With ListBox2 .AddItem .List(.ListCount - 1, 0) = vntItem & sDatei .List(.ListCount - 1, 1) = sDatei sDatei = Dir() End With Loop 'Wenn Ordnerstruktur zwar da, aber keine Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an: Else With ListBox2 .AddItem .List(.ListCount - 1, 0) = vntItem .List(.ListCount - 1, 1) = "Keine Dokumente in der Akte hinterlegt. Hier klicken, um Verzeichnis zu öffnen." End With End If 'Wenn keine Ordnerstruktur vorhanden, dann zeigen wir folgendes an: Else With ListBox2 .AddItem .List(.ListCount - 1, 0) = vntItem .List(.ListCount - 1, 1) = "Keine Ordnerstruktur vorhanden. Hier klicken, um anzulegen." End With End If Next End Sub

Private Sub Listbox2_befuellen() Dim sDatei As String Dim vntItem As Variant Dim blnFolder As Boolean With ListBox2 .Clear .ColumnCount = 2 .ColumnWidths = "0cm;10cm" For Each vntItem In Array(sPfadAkte, sPfadAkte2) 'Prüfen, ob Verzeichnis vntItem vorhanden: If Dir(vntItem, vbDirectory) "" Then 'Listeder Dateien zusammenstellen, die im Ordner vntItem vorhanden sind: sDatei = Dir(vntItem & "*.*") 'Wenn Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an: If sDatei "" Then If Not blnFolder Then blnFolder = True .AddItem .List(.ListCount - 1, 0) = "C:\" .List(.ListCount - 1, 1) = "« Verzeichnis öffnen »" End If Do Until sDatei = "" .AddItem .List(.ListCount - 1, 0) = vntItem & sDatei .List(.ListCount - 1, 1) = sDatei sDatei = Dir() Loop 'Wenn Ordnerstruktur zwar da, aber keine Dateien im Ordner verfügbar sind, dann zeigen wir folgendes an: Else .AddItem .List(.ListCount - 1, 0) = vntItem .List(.ListCount - 1, 1) = "Keine Dokumente in der Akte hinterlegt. Hier klicken, um Verzeichnis zu öffnen." End If 'Wenn keine Ordnerstruktur vorhanden, dann zeigen wir folgendes an: Else .AddItem .List(.ListCount - 1, 0) = vntItem .List(.ListCount - 1, 1) = "Keine Ordnerstruktur vorhanden. Hier klicken, um anzulegen." End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Dateien aus 2 Ordner in Listbox listen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien aus 2 Ordner in Listbox listen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread