я пытаюсь получить текущий каталог и использовать его для запуска приложения, независимо от того, где находится файл и как путь не изменился

    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

как мне на самом деле настроить этот код, чтобы он делал то, что я хочу, чтобы он делал правильно? Заранее спасибо!