vbscript - 如何打开已定义路径的文件

Question

所以代码到目前为止有效，但是当我尝试使用函数找到的路径打开一个 txt 文件时，它不会打开 txt 文件。错误消息：对象不支持此属性或方法。

 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Function GetFilePath(FileName)
Dim strScriptPath
strScriptPath = objFSO.GetFile(WScript.ScriptFullName).ParentFolder.ParentFolder.ParentFolder.Path
GetFilePath = (strScriptPath & "\" & FileName & ".txt")
wscript.echo GetFilePath
End Function

GetFilePath("ApprovedShares")

'Reads Approvedshare txt and makes the txt file into an array
Dim objApprovedFile, StrApprovedPath
StrApprovedPath = ("" & GetFilePath("ApprovedShares") & "")
wscript.echo StrApprovedPath 
objApprovedFile = objFSO.OpenTextFile (StrApprovedPath)

Answer 1

您需要Set将对象分配给变量：

Set objApprovedFile = objFSO.OpenTextFile (StrApprovedPath)

转念一想：

你需要更少的 () 和更多的 """"：

StrApprovedPath = ("" & GetFilePath("ApprovedShares") & "")

==>

StrApprovedPath = """" & GetFilePath("ApprovedShares") & """"