Function vbscript错误：重新定义名称；第43行：ExecuteGlobal sFileContents

来自具有非正式编码背景的amatuer脚本编写人员的问题：

我在stack、msdn和随机脚本网站上对此进行了研究，但似乎无法找到具体的解决方案。因此，请注意，即使解决方案很简单，请求帮助也是最后的手段

简单地说，我试图调用一个函数，将文件最后修改的日期解析为日期格式数组。filepath是函数参数。这些文件是客户端测试环境中的.vbs文件。如果您查看脚本，就会发现这一点

我最好的猜测是“名称重定义”错误与全局变量在某种程度上变暗有关，这会引发错误

不管怎样，这里是呼叫子：

        Option Explicit



'=============================
'===Unprocessed Report========
'=============================




'*****Inputs: File Path*********************

dim strFolderPath, strFilename, strReportName, strFileExt, FullFilePath


        strFolderPath = "C:\Users\C37745\Desktop\"
        strFilename = "UNPROCESSED_REPORT"
        strReportName = "Unprocessed"
        strFileExt = ".xlsx"




'************************************

FullFilePath = strFolderPath & strFilename & strFilename & strFileExt

'************************************





Sub Include(MyFile)
  Dim objFSO, oFileBeingReadIn  ' define Objects
  Dim sFileContents     ' define Strings

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set oFileBeingReadIn = objFSO.OpenTextFile(MyFile, 1)
  sFileContents = oFileBeingReadIn.ReadAll
  oFileBeingReadIn.Close
  ExecuteGlobal sFileContents
End Sub



Include "C:\Users\C37745\Desktop\VBStest\OtherTest\TEST_DLM.vbs"




''''''''''FOR TESTING''''''''''''''

Dim FilePath, varTEST

strFilePath = FullFilePath
varTEST = ParseDLMToArray(strFilePath)

msgbox varTESTtemp(0)

'''''''''''''''''''''''''''''''''

下面是我试图调用（或读取，我猜）的函数：

如果您发现问题，请提供任何建议，包括关于最佳实践的一般反馈。谢谢

你的

Function ParseDLMtoArray(strFilePath)
  Dim strFilePath 
  ...

再次尝试声明/定义strFilePath。这显然是不允许的，因为不可能决定该变量应该包含空（因为Dim）还是您传递的参数

---

第一眼看到您的代码，您可以删除

暗淡的strFilePath

谢谢您，先生，这是问题的核心（尽管我在进一步调试时发现了一些拼写错误）。再次感谢！

Function ParseDLMtoArray(strFilePath)
  Dim strFilePath 
  ...