VBS: Выборочное считывание текстового файла

Option Explicit

' IOMode Enum
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8

' Format Enum
Const TristateUseDefault = -2
Const TristateTrue       = -1
Const TristateFalse      =  0


Dim strFileIn
Dim strFileOut

Dim objFSO
Dim objTSIn
Dim objTSOut


With WScript.Arguments
    If .Count = 2 Then
        strFileIn  = .Item(0)
        strFileOut = .Item(1)
    Else
        WScript.Echo "Usage: " & WScript.ScriptName & " <File to input> <File to output>"
        WScript.Quit 1
    End If
End With

With WScript.CreateObject("Scripting.FileSystemObject")
    strFileIn  = .GetAbsolutePathName(strFileIn)
    strFileOut = .GetAbsolutePathName(strFileOut)
    
    If .FileExists(strFileIn) Then
        Set objTSIn  = .OpenTextFile(strFileIn,  ForReading, False, TristateUseDefault)
        Set objTSOut = .OpenTextFile(strFileOut, ForWriting, True,  TristateUseDefault)
        
        Do Until objTSIn.AtEndOfStream
            objTSOut.WriteLine Mid(objTSIn.ReadLine(), 4)
        Loop
        
        objTSOut.Close
        objTSIn.Close
        
        Set objTSOut = Nothing
        Set objTSIn  = Nothing
    Else
        WScript.Echo "Can't find input file [" & strFileIn & "]"
    End If
End With

WScript.Quit 0

set args = wscript.arguments
set fso = wscript.createobject("scripting.filesystemobject")
set shell = wscript.createobject("wscript.shell")

dir = "h:\smth" ' нужно указывать существующую папку

if args.count > 0 then
  if fso.folderExists(args(0)) then
    dir = args(0)
  end if
end if

if args.count > 1 then
  sec = 1
else
  sec = 0
end if

shell.currentDirectory = dir

if fso.fileExists("out.txt") then
  fso.deleteFile("out.txt")
end if

set stream = fso.opentextfile("out", 2, true)

for each file in fso.getFolder(shell.currentDirectory).files
  if len(file.name) > 3 then
    if ucase(right(file.name, 3)) = "TXT" then ' будем читать только файлы с расширением.txt
      set stream1 = fso.openTextFile(file.name, 1)
      do
        str = stream1.readline
        if (sec = 1) and (len(str) > 0) then
          if left(str, 1) <> "#" then          
            stream.writeline str
          end if
        else
          stream.writeline str
        end if
      loop until stream1.atEndOfStream
      stream1.close
    end if
  end if
next

stream.close

set file = fso.getFile("out")
file.name = "out.txt"