Ich versuche, das aktuelle Verzeichnis abzurufen und es zu verwenden, um eine Anwendung auszuführen, unabhängig davon, wo die Datei abgelegt wird und wie der Pfad geändert wird

    dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    dim CurrentDirectory
    CurrentDirectory = fso.GetAbsolutePathName(".")
    dim Directory
    Directory = CurrentDirectory\attribute.exe

    Set WinScriptHost = CreateObject("WScript.Shell")
    WinScriptHost.Run Chr(34) & "Directory" & Chr(34), 0
    Set WinScriptHost = Nothing

Wie richte ich diesen Code ein, damit er das tut, was ich möchte? Danke im Voraus!