Verzeichnis durchsuchen
13.11.2003 10:46:24
Peer-Mario
mit folgender VBA-Funktion wollte ich alle Dateien, die die Endung "txt" haben, auflisten.
Sie funktioniert nicht wirklich, warum nicht ? Ich habe mal die Zeilennummern dahinter geschrieben um besser erklären zu können, was eigentlich passiert
Sub Auswertung()
Dim str_datei As String
str_datei = Dir("z:\lm\!\*.txt") '[1]
Do While str_datei <> "" '[2]
str_datei = Dir() '[3]
Loop '[4]
End Sub
Folgendes passiert laut Debugger, der Reihenfolge nach:
Zeile [1]
str_datei bekommt den Wert "whatsnew.txt"
Dir hat jetzt schon den Wert "readme.txt"
zeile [2]
Dir hat jetzt den Wert "licence.txt"
str_datei immer noch den wert "readme.txt"
zeile [3]
str_datei bekommt den wert "avclsrc.txt"
dir hat jetzt den wert "wcalcsrc.txt"
Zeile [4]
Dir bekommt jetzt den Wert "wchessrc.txt"
str_datei hat immer noch den wert "avclsrc.txt"
Wenn die Funktion komplett durchgelaufen ist, hat str_datei genau 2 Dateinamen bekommen, von aber 7 *.txt Dateien, die sich im Verzeichnis befinden.
Bin ich betriebsblind oder habe ich den Befehl DIR nicht verstanden?
Liebe Grüße Peer-Mario