ich muss alle Dateien in einem Verzeichnis auflisten. Da es sich um über 10.000 handelt, möchte ich dies nicht "per hand" erledigen.
Wer kann mir helfen?
Danke, Christian
wieso dieser CODE ??
ist sicher keine hilfe.
trotzdem schoenen vatertag ;-)
gruss thomas
Sub Dateiliste_Öffnen()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Aktuell_Datei As String
Dim Aktuell_Register As String
Aktuell_Datei = ActiveWorkbook.Name
Aktuell_Register = ActiveSheet.Name
' von hier werden die Daten geholt
strVerzeichnis = "C:\daten\"
'StrTyp = "*.xls" für Auswahl von Suffix
StrTyp = "*.*"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname <> ""
'Cells(I, 1).Value = strVerzeichnis & Dateiname (wenn Path nötig diese Zeile)
Cells(I, 1).Value = Dateiname ' (ohne Path)
I = I + 1
Dateiname = Dir
Loop
End Sub
gruss
geri