kennt jemand ein einfaches Skript, mit dem man alle Files aus einem Ordner in ein Array packen kann?
Gruß und Dank,
Born
Option Explicit
Sub TestLeseDaten1(myAr(), strPfad As String, AA As Long)
Dim sFiles As String
Redim Preserve myAr(100000) 'Area groß genug für 100001 Dateien
sFiles = Dir$(strPfad & "*.*")
Do While sFiles <> ""
myAr(AA) = sFiles
AA = AA + 1
sFiles = Dir$()
Loop
If AA > 0 Then
Redim Preserve myAr(AA - 1)
End If
End Sub
Sub Beispiel()
Dim myAr(), AA As Long
'bei Pfadangabe auf abschließend \ achten
Call TestLeseDaten1(myAr, "J:\1 Forum\", AA)
If AA > 0 Then
Debug.Print Ubound(myAr) 'hier stehen die Dateien drin
Else
Debug.Print "keine Dateien" 'keine Dateien gefunden
End If
End Sub
Gruß Tino