Próbuję pobrać bieżący katalog i użyć go do uruchomienia aplikacji bez względu na to, gdzie plik jest umieszczony i bez względu na to, jak zmieni się ścieżka

    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

jak właściwie skonfigurować ten kod, aby działał prawidłowo? Z góry dziękuję!