kann mir einer von euch bitte helfen?
Ich lasse mit diesem Code die Dateinamen in eine Listbox anzeigen.
Nun möchte ich gerne das alle Dateinamen aus dem Ordner angezeigt werden,
aber die mit der Endung ".zip" und ".db" nicht.
Sub OrdnerEinlesen()
Dim Verz, strMMDaten As String
Dim Datei
Dim Ordner
strMMDaten = Sheets("Pfade").Cells(3, "C").Value
Verz = strMMDaten & Me.lbl_MMNr.Caption
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.lst_DateiAnlagen.Clear
For Each Datei In FSO.getfolder(Verz).Files
Me.lst_DateiAnlagen.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.lst_DateiAnlagen.AddItem Ordner.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
'Me.lst_DateiAnlagen.AddItem Ordner.Name
For Each Datei In FSO.getfolder(Ordner).Files
Me.lst_DateiAnlagen.AddItem Datei.Name
Next
Next
End Sub
Vielen Dank in VorausVG Alex