Collection
16.06.2015 14:27:38
Birgit
ich möchte eine Collection erstellen, die die Namen aller Dateien eines Ordners zurückgibt. Die Schleife kann ich selbst basteln, aber wie kann man die Dateinamen abrufen? Bislang bin ich soweit gekommen:
Sub test()
Dim Dateien As Collection
Set Dateien = New Collection
'"C:\_Speicher\2015\06"'Ordner der ausgewertet werden soll
'Schleife
'Dateien.Add
'MsgBox "Der Name der Datei ist " + y1$
x2 = Dateien.Count
y2$ = x2
MsgBox "Anzahl ist " + y2$
End Sub
Hat jemand eine Idee?
Viele Grüße, Birgit
Anzeige