错误800a01a8：需要WScript对象

Question

我正在尝试使用以下代码段来使用脚本的当前路径：

Set oShell = CreateObject("WScript.Shell")
Set oFileSystemObj = CreateObject("Scripting.FileSystemObject")

PathName = oFileSystemObj.GetParentFolderName(Wscript.ScriptFullName)

但是，它不断抛出错误说

  

'Wscript'对象必需。

Answer 1

在这种情况下，请使用以下代码获取脚本的当前路径：

Dim oFileSystemObj: Set oFileSystemObj = CreateObject("Scripting.FileSystemObject")

PathName = oFileSystemObj.GetParentFolderName(oFileSystemObj.GetAbsolutePathName("."))