vbscript - .GetAbsolutePathName (".") 在由任务计划程序运行时，vbscript 中的路径不正确

Question

我正在尝试使用任务调度程序运行 vb 脚本。我正在使用 .GetAbsolutePathName(".") 来获取脚本的完整路径。当我手动运行脚本时，它能够获得正确的路径。但是当作为计划任务运行时，它会输出“C:\Windows\System32\作为路径。

我正在使用路径名来获取我想要运行的 Excel 文件的完整路径。 excel 文件保存在与脚本相同的路径中。

下面是我的代码:

Set fso = CreateObject("Scripting.FileSystemObject")

scurDir = fso.GetAbsolutePathName(".")

set fso = nothing

Set myxlApplication = CreateObject("Excel.Application")

wscript.echo scurDir & "\OOO Automation Tool.xlsm"

Set myWorkBook = myxlApplication.Workbooks.Open( scurDir & "\OOO Automation Tool.xlsm" )

myxlApplication.Visible = False

myxlApplication.Wait(Now + TimeValue("0:00:10"))

'Run routine
myWorkBook.Application.Run "MOutofOffice.pDetectIdleTime" 

'Close application
myxlApplication.Quit

'Release objects
set myxlApplication = nothing
set myWorkBook = nothing

你能帮我找到正确的路径吗？

Answer 1

你可以试试

With WScript.CreateObject("Scripting.FileSystemObject") 
    WScript.Echo .GetFile(WScript.ScriptFullName).ParentFolder.Path
End With

您需要存储脚本的路径，而不是当前事件目录，您使用 "." 引用检索的内容。