VBA - Do While-Schleife gibt Dir <Ungültiger Prozeduraufruf oder ungültiges Argument> zurück
Ich durchlaufe einen Ordner in einer Schleife, um die vollständige Dateinamenadresse (Ordneradresse + Dateiname und Erweiterung) abzurufen.
Ich verwende das Folgende, aber irgendwann ist der Dir-Wert<Invalid procedure call or argument>
recsFolder = Functions.GetFolder("C:\")
recfile = recsFolder & "\" & Dir(recsFolder & "\*.rec*")
Do While Len(recfile) > 0
recfile = recsFolder & "\" & Dir
Loop
Der Fehler wird vor der Schleife ausgegeben, wenn das Lesen aller Dateien abgeschlossen ist.
EDIT: Ein anderer Ansatz und Dir ändert sich jedes Mal, wenn ich F8 drücke
If Right(recsFolder, 1) <> "\" Then recsFolder = recsFolder & "\"
numFiles = 0
recfile = Dir(recsFolder)
While recfile <> ""
numFiles = numFiles + 1
recfile = Dir()
Wend
Ich versuche diesen neuesten Ansatz und erhalte den gleichen Fehler. Das Problem ist, dass ich beim zeilenweisen Ausführen des Codes (F8) feststellen kann, dass sich der Dir-Wert jedes Mal ändert, wenn eine neue Codezeile in While ausgeführt wird.