无法获取 .vbs 文件中的当前目录 [重复]答案

【问题标题】：Cannot get the current directory in .vbs file [duplicate]无法获取 .vbs 文件中的当前目录 [重复]
【发布时间】：2019-08-27 12:42:01
【问题描述】：

我编写了一个 Visual Basic 脚本来执行 Excel 宏。我想动态设置 .xlsm 文件的位置。我使用 FileSystemObject 来获取当前目录。它返回 C:\Windows\System32 但我需要 .vbs 文件所在的目录。

我尝试使用 FileSystemObject 和 WScript 获取当前目录，但没有成功。

' Create a FileSystemObject to get the current directory
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
strPath = fso.GetAbsolutePathName(".")
myExcelWorker.DefaultFilePath = strPath

' Open the Workbook specified on the command-line 
Dim oWorkBook
Dim strWorkerWB
strWorkerWB = strPath & "\Data center Wattsight long term.xlsm"

Set oWorkBook = myExcelWorker.Workbooks.Open(strWorkerWB)

预期的行为是打开 Excel 文件。但我得到一个错误：

【问题讨论】：

标签： vbscript

【解决方案1】：

您将 当前工作目录 与脚本的位置混淆了。两者不相同。

其中任何一个都会为您提供当前工作目录：

CreateObject("WScript.Shell").CurrentDirectory

CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

这将为您提供脚本的位置：

CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

【讨论】：