Запись данных, получаемых при обработке заданного файла, в текстовый файл с именем обрабатываемого файла

Din oShell, oExec, sOutput
 
Dim fso, oFile
Dim pth
Dim FileName1
Dim Filename2
Dim aa
Dim Tmp
Dim Num
 
Filename1 = ""
Set objArgs = WScript.Arguments
 
if objArg.count < 1 Then
          Wscript.Echo "Ошибка"
          FileName1 = ""
   else
          For i = 0 to objArgs.count - 1
                FileName1 = objArgs(i)
next
  end if
 
Tmp = StrReverse (FileName1)
Num = Instr (Tmp, "\")
Tmp = Left (Tmp, Num-1)
Tmp= StrReverse(Tmp)
 
FileName = """ & FileName1 & """"
 
pth = " c:\CRC.exe 0 " & Filename
 
Set oShell = CreateObject ("Wscript.Shell")
 
Set oExec = oShell.Exec(pth)
 
sOutput = ""
 
Do While Not oExec.StdOut.AtEndOfStream
 
sOutput = sOutput & oExec.StdOut.Read(1)
 
Loop
 
aa= InputBox (sOutput)

CreateObject("Scripting.FileSystemObject").CreateTextFile(Filename & ".txt").Write(sOutput)

On Error Resume Next
Dim dir, FSO, TextStream
dir = "C:\folder" ' путь к папке с файлами
Set FSO = CreateObject("Scripting.FileSystemObject")' создание объекта FSO
If FSO.GetFolder(dir).Files.Count >= 1 then' если файлов в папке > = 1
    Set oFiles = FSO.GetFolder(dir).Files
    For Each oFile In oFiles
        Set TextStream = oFile.OpenAsTextStream(1)
        MsgBox TextStream.ReadAll(), 0, oFile
        TextStream.Close
        TextStream = Nothing
    Next
End If