Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien eines Ordners als Array

Dateien eines Ordners als Array
21.04.2009 18:44:13
MBorn
Hallo,
kennt jemand ein einfaches Skript, mit dem man alle Files aus einem Ordner in ein Array packen kann?
Gruß und Dank,
Born

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien eines Ordners als Array
21.04.2009 19:43:41
Tino
Hallo,
hier mal ein simples Beispiel, habe keine Fehlerüberprüfung auf Pfadangabe gemacht.
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

Anzeige
AW: Dateien eines Ordners als Array
21.04.2009 20:23:51
MBorn
Coooool! It works.
Danke Tino.
Born
OT: Eine 2.PLZ-Fml-Variante findest du...
21.04.2009 22:41:55
Luc:-?
...hier, Born... ;-)
Gruß Luc :-?

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige