Question

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

 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") & "")

==＆GT;

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

如何使用已定义的路径打开文件

1 个答案: