Dir-Funktion
23.02.2005 15:57:16
Jones
Ich hab ein echt nerviges Problem.
Ich durchlaufe in einer Schleife alle Dateien, die sich im aktuellen Ordner (Pfad) befinden. Dazu benutze ich die DIR-Funktion:
Path = ActiveWorkbook.Path
File = Path + "\*.*"
Dateiname = Dir(File)
Do While Dateiname ""
'Funktionsaufrufe
Dateiname = Dir()
Loop
Dies hat bisher auch wunderbar funktioniert.
Aber jetzt rufe ich in dieser Schleife eine Funktion auf, bei der ich auch kurz die Dir-Funktion brauch, um die Existenz einer Datei zu prüfen:
andererPath = ActiveWorkbook.Path
anderesFile = andererPath + "\testDatei*.xls"
andererDateiname = Dir(anderesFile)
so, und wenn ich jetzt wieder zu meiner Ausgangsfunktion mit der Schleife zurückkehre, steht in der Variablen Dateiname nach der Dir-Funktion immer "" obwohl noch nicht alles Dateien in dem betreffenden Ordner durchlaufen worden sind.
Anscheinend darf ich also in dieser Schleife keine weitere Dir-Funktionsaufrufe machen, auch wenn dies in einer separaten Funktion geschieht.
Wie könnte ich nun am besten vorgehen?
Gibt es eine Alternative, einen nur halb-bekannten Dateinamen auf Existenz zu prüfen?
Kann man diese Schleife auch ohne Dir-Funktion gestalten und dass dabei eine Datei vernachlässigt wird?
Vielen Dank
Jones