Office: Dateien in Ordner Zählen / Auflisten

Moin Moin,

ich hab ein kleines Problem:
Und zwar liste ich mit einem Makro Dateien auf bzw. ermittel die Anzahl, Dateipfad, Name usw.
Im Prinzip funktioniert es auch, jedoch zählt das Makro versteckte Dateien mit, die mich gar nicht interessieren *eek.gif*

Ich bestimme erst die Anzahl von Ordnern bzw. Dateien (Ordner.SubFolders.Count bzw. Ordner.Files.Count) und erstelle mir dann ein (eigentlich passendes Array). Die beiden Funktionen bestimmen die Anzahl auch korrekt, nur eben, dass die versteckten Dateien mitgezählt werden...

Dazu kommt, dass ich zu der Größe des Arrays für die Dateien immer eins hinzuaddieren muss weil die Schleife immer "Anzahl der Dateien + 1" mal durchlaufen wird...

Ist es möglich, dass ich mit der Methode FileSystemObject nur sichtbare Dateien (Bilder, Word, Excel Dateien usw aber keine versteckten mit "~$" vor dem Namen usw)?

Ich hab die aus meiner Sicht relevanten Code Teile mal unten angefügt:

Code:

Danke schon mal.

Gruß
Andreas

EDIT: Das mit der Anzahl der Dateien hat sich erledigt (lag daran, dass die For-Schleife doppelt ausgeführt wurde). Die Frage ist nur noch ist es möglich versteckte Dateien zu ignorieren?

:)

 

Hallo Andreas,

"Aus der Hüfte geschossen" und ungetestet:

For Each Datei In Ordner.Files
' Dateiname mit Pfad
If Datei.Attributes And 2 Then
'Mach nix
Else:
Dateipfad_Datei_temp(j) = Datei
' Nur der Dateiname
Dateiname_temp(j) = Datei.Name
Debug.Print Datei.Name
j = j + 1
End If
Next


ransi

 

Hey danke das funktioniert =)

 

Oder als FlowSheet: