Dateiattribute und Dir()
21.11.2003 23:11:11
Dirk
ich habe leider nicht so viel Ahnung von VBA und zusätzlich läßt sich das Problem auch nur schwer beschreiben. Ich hoffe, dass das nicht zu peinlich ist.
Wenn ich mit der Dir-Anweisung Dir(Ordnerpfad) alle einzelne dateien aus z.B. einem Ordner mit tausenden dateien beareiten will, musss nach jedem Dateiaufruf mit der Schleife
Dir (OrdnerPfad)
For i = 1 to DirCounter
Dir ()
Next
immer wieder alle "vorherigen" Dateien ansteuern, um die nächste zu bekommen (weil ich Dir() inzwischen wieder in einem anderen Zusammenhang benutzt habe).Da das alles bei mir mehrfach vorkommt, frisst das - so glaube ich - echt viel Zeit.
Als Trick habe ich mir (Anfänger) nun ausgedacht, dass ich, wenn ich eine Datei angesteuert habe, diese mit einem best. Attribut belege, das ich dann bei der nächsten Dir-Anweisung ausschließen könnte. So könnte beim nächsten Dir-Aufruf die bereits angesteuerte Datei erst gar nicht wieder in die Quere kommen bzw. so könnte ich diese auch gezielt ansteuern. Ich denk da aber nicht an die klassischen Atrribute 0 1 2 4 8 16 32 (die sind schon eh alle dabei), sondern an "Phantasie-Attribute" wie zB 5000 (durch SetAttr Dateipfad, 5000). AKzepiert VBA so etwas? Oder heißt 5000, dass jetzt alle Attribute automatisch drin sind? Ist das einigermaßen verständlich? Über Antworten würde ich mich freuen.
Dirk