Vbscript 如何在VBS中将错误重定向到文本文件

如何使用vb脚本将输出重定向到文本文件

我有这样的代码

Dim tsIn
set tsIn = goFS.OpenTextFile("E:\..t.csv") 'if file doesn't exist then error

 If Err.Number <> 0 Then
    MsgBox Err.Description & "Input File Did not open" '> "E:\t.txt"
    Exit Sub
 End If

Dim-tsIn
设置tIN=goFS.OpenTextFile（“E:\…t.csv”）“如果文件不存在，则出现错误
如果错误号为0，则
MsgBox Err.Description&“输入文件未打开”'>“E:\t.txt”
出口接头
如果结束

但是如果文件夹中不存在文件，如何重定向错误

---

我尝试了

，但没有结果

试试下面的方法

On Error Resume Next

Set objShell = CreateObject("Wscript.Shell")
errTxtFile = objShell.SpecialFolders("Desktop") & "\21777595.txt"
Set objFSO = WScript.CreateObject("Scripting.Filesystemobject")
Set FSO_Handle = objFSO.OpenTextFile (errTxtFile,8,True)

Err.Raise 6 'To test if the error is getting stored or not

 If Err.Number <> 0 Then
    FSO_Handle.WriteLine Now & " - Error : " & Err.Number & ": " & Err.Description
 End If

出错时继续下一步
设置objShell=CreateObject（“Wscript.Shell”）
errTxtFile=objShell.SpecialFolders（“桌面”）和“\217777595.txt”
设置objFSO=WScript.CreateObject（“Scripting.Filesystemobject”）
设置FSO_Handle=objFSO.OpenTextFile（errTxtFile，8，True）
错误。升高6'以测试是否存储了错误
如果错误号为0，则
FSO_Handle.WriteLine现在&“-Error:&Err.Number&“：”&Err.Description
如果结束

将错误重定向到输出。%但errorlevel%仍将为0

cscript myscript.vbs > myscript.log 2>&1

---

您想将所有输出发送到一个文件还是只发送几个选定的消息？仅发送错误消息！在这种情况下，您别无选择，只能打开一个文本文件并发送输出。。。检查下面的示例代码