如何在vbscript

Question

我有一个文本文件作为阅读输入，有一个输出文本文件（.csv）用于书写。来自输入的错误将写入输出。我遇到的问题是多个人可以使用该脚本，并且我不希望输出文件有任何问题。

可以从任何位置选择输入文件。但是输出文件的位置在我的脚本中硬编码为网络位置。

我试图做的是在脚本运行时写入输出.csv文件。在脚本的末尾，提示用户查看输出文件（错误列表）。我想另存为原始的.csv文件，然后让用户打开该文件，这样就永远不会使用原始文件了。

Sub subExternalFile
strFilter = ""
strExternalFilePath = funcSolicitFile(strFilter)
strExternalFilePath1 = 
    "\\DAYFS02\mortsvc$\_Scripts_Custom\TaskScript_OutPut.csv"  
Set objFile = 
     oFileObject.OpenTextFile(strExternalFilePath,ForReading)
     Set objFileOutput = 
     oFileObject.OpenTextFile(strExternalFilePath1,ForWriting)
       funcRunScriptConfirmation
End Sub

If strMsgBox = 6 Then

      OutputFileLocation = 
      "\\DAYFS02\mortsvc$\_Scripts_Custom\Task_Script_Output" & 
      Task_ID & "__" & Year(Date) & Right("0" & Month(Date),2) & 
      Right("0" & Day(Date),2) & ".csv"

      Set oExcelObject = GetObject("","Excel.Application")
      oExcelObject.DisplayAlerts = False
      oExcelObject.Workbooks(1).SaveAs "OutputFileLocation", 6

      Set ExcelWorkbook = 
      oExcelObject.Workbooks.Open(OutputFileLocation)
      oExcelObject.Application.Visible = True
        Wscript.Quit

Else            
   subTerminateScript("Script Completed")
End If

我想写原始文件并另存为新的.csv文件，以便脚本用户不使用原始文件。或者，我只想打开一个新的.csv文件并写入该文件，而无需保存。