Vbscript 不输出文件

Question

这是我的。为什么它根本不导出文件？如果我删除 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")

Answer 1

替换行

sDate = Date

与

sDate = Replace(Date, "/", "-")

还要确保您的脚本可以在具有其他语言设置的 PC 上运行，在开头添加该行

SetLocale(1033)

Vbscript 不输出文件

Vbscript doesn't output file

vbscript