Wie Dir() in VBA funktioniert

Question

In meinem aktuellen VBA-Code erzeuge ich eine Variable namens myFileName und möchte sie als Parameter verwenden, wenn ich überprüfe, ob die Datei existiert, aber ich bekomme eine Fehlermeldung "Runtime error 52, bad Dateiname oder Nummer "in der Zeile verwende ich den Befehl Dir.

Interessanterweise, wenn ich den Dateipfad manuell auf den Befehl Dir eingeben, anstatt die Variable MyFileName, dann funktioniert es ohne ein Problem. (kein Tippfehler, ich kann den myFileName beim Lesen oder Schreiben der Datei verwenden, er löscht nur einen Fehler für den Dir-Befehl)

Irgendwelche Ideen wie kann ich das Dir (myFileName) arbeiten lassen?

Set fs = CreateObject("Scripting.FileSystemObject") 

    myFileName = Environ("USERPROFILE") & "\Application Data\myFile.txt" 

    If Dir(myFileName) = "" Then 
     Set a = fs.CreateTextFile(myFileName, True) 
     a.Write ("0") 
     a.Close 
    End If 

Answer 1

Die \Application Data ist kein Ordner, sondern eine Verknüpfung. Verwenden Sie LOCALAPPDATA oder APPDATA statt:

myFileName = Environ("LOCALAPPDATA") & "\myFile.txt" 
myFileName = Environ("APPDATA") & "\myFile.txt" 

Answer 2

Ihr Problem ist:

myFileName = Environ("USERPROFILE") & "\Application Data\myFile.txt" 

soll es

myFileName = Environ("USERPROFILE") & "\Application Data" & "\" & "myFile" & ".txt" 

sein Dies ist eine häufig gestellte Frage und wirklich wert anerkannt wird, dass Sie den letzten Schrägstrich wie folgt eingefügt haben. IDK, warum VBA liest so, aber das ist die Arbeit um

Ich lief nur das ohne Problem und die Datei erstellt.

Private Sub createafile() 
    Set fs = CreateObject("Scripting.FileSystemObject") 

    myFileName = Environ("USERPROFILE") & "\Desktop" & "\" & Format(Date, "ddmmyyyy") & ".xlsm" 

    If Dir(myFileName) = "" Then 
     Set a = fs.CreateTextFile(myFileName, True) 
     a.Write ("0") 
     a.Close 
    End If 
End Sub