Vbscript不'；t输出文件

这是我的。为什么根本不导出文件？如果我删除Set NewFile行的“sdate”部分，它就可以正常工作

On Error Resume Next
  Dim fso, folder, files, sFolder, sDate

  sDate = Date

  Set fso = CreateObject("Scripting.FileSystemObject")
  sFolder = "\\mypath" 'Wscript.Arguments.Item(0)
  If sFolder = "" Then
      Wscript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If
  Set NewFile = fso.CreateTextFile(sFolder& "\Refunds" & sDate & ".csv", True)
  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files

  For each folderIdx In files
    NewFile.WriteLine(Replace(Replace(folderIdx.Name,"_",","), ".pdf",""))(folderIdx.Name)
   Next
  NewFile.Close

x=msgbox("CSV list complete." ,0, "Done")

更换线路

sDate = Date

与

另外，为了确保您的脚本可以在具有其他语言设置的PC上运行，请在开头添加行

SetLocale(1033)

---

移除邪恶的全局文件，再次测试，如果需要发布问题。它会显示“未找到路径”-但它的输出没有“sDate”在那里。可能是因为没有命名为当前日期的文件夹。此外，NewFile.WriteLine行应该会引发另一个错误。这里的最终目标是将日期添加到文件名中。我应该怎么做才能让它工作？如果不存在，创建文件夹？

SetLocale(1033)