錯誤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("."))