VBS: Обработчик текстовых логов, вставка полученных данных в Oracle

del_vbslog = True
files_move = True
log_reader = True
Dim SourceFolder, pathTo, idx, file, FSO, FileLog
SourceFolder = "D:\Temp&logs\WebLogFiles\W3SVC1"
pathTo = SourceFolder + "\Export_To_Oracle"
Set FSO = CreateObject("Scripting.FileSystemObject")
FileLog = Left(WScript.ScriptName,(Len(WScript.ScriptName)-4)) & "_" & DatePart("yyyy",Date) & "_" & DatePart("m",Date) & "_" & DatePart("d",Date) & "." & "log"

Main()
'-----------------------------------------------------------
Sub Main()
  If del_vbslog Then DelVbsLog()
  If files_move Then LogFilesMove()
  If log_reader Then LogReader()
End Sub

'-----------------------------------------------------------
'Удаляем лог-файл нашего скрипта, если таковой существует
Sub DelVbsLog()
  If FSO.FileExists(FileLog) Then
    Set File = FSO.GetFile(FileLog)
    Const DELETE_FILE_FORCE = True
    File.Delete DELETE_FILE_FORCE
  End If
End Sub
'-----------------------------------------------------------

'-----------------------------------------------------------
'Перемещаем лог-файлы в папку Export_To_Oracle
Sub LogFilesMove()

If Not FSO.FolderExists(pathTo) Then
    FSO.CreateFolder pathTo
End If
On Error Resume Next
WriteLog("Перемещены\скопированы следующие файлы: " & vbCrLf)
For Each File In FSO.GetFolder(SourceFolder).Files
    path_to_file=pathTo & "\" & File.Name
    if FSO.FileExists(path_to_file) then FSO.DeleteFile(path_to_file)
    FSO.MoveFile File.Path, path_to_file
    If Err.number <> 70 Then Log_Ok_Or_ErrorAndQuit 'исключаем ошибку если файл занят другим процессом
    WriteLog(path_to_file)
Next
End Sub

Sub Log_Ok_Or_ErrorAndQuit
    If Err.number <> 0 Then
        WriteLog "Error #" + Err.number + " :" + Err.Description, 1
        WScript.Quit
    End if
End Sub

'-----------------------------------------------------------
'Обрабатываем каждый лог-файл и производим запись в БД
Sub LogReader()

Dim TheFolder, TheFiles, fileName
Set TheFolder = FSO.GetFolder(pathTo)
Set TheFiles = TheFolder.Files

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("oracle.test", "root/password", 0)
OraDatabase.ExecuteSQL("ALTER SESSION SET NLS_NUMERIC_CHARACTERS= '.`'")

For Each fileName In TheFiles

  if Not FSO.FileExists(fileName) Then
      Set file = FSO.CreateTextFile(fileName, true)
      file.Close
  End if

  Set file = FSO.GetFile(fileName)

  Dim text
  Set text = FSO.OpenTextFile(fileName, 1, false)

  WriteLog(vbCrLf & "Был обработан файл: " & vbCrLf & fileName)
  
  Dim stringArray, lastString
  text.SkipLine
  text.SkipLine
  text.SkipLine
  text.SkipLine
  stringArray = Split(text.ReadAll, Chr(13), -1, 1)
  text.Close

    WriteLog(vbCrLf & "Выполнены следующие действия: ")
  idx = UBound(stringArray)
  isRunCommit = false
  Do Until idx < 0
    lastString = stringArray(idx)
    if Len(lastString) > 0 Then
      Dim data, time, cs_method, cs_uri_stem, cs_uri_query, s_port, c_ip, sc_status, sc_substatus, sc_bytes, cs_bytes, time_taken, parsing, count
      parsing = Split(lastString, " ")
      count = UBound(parsing)
      
      if (count > 5) Then
        data = parsing(0)
        time = parsing(1)
        cs_method = parsing(2)
        cs_uri_stem = parsing(3)
        cs_uri_query = parsing(4)
        s_port = parsing(5)
        c_ip = parsing(6)
        sc_status = parsing(7)
        sc_substatus = parsing(8)
        sc_bytes = parsing(9)
        cs_bytes = parsing(10)
        time_taken = parsing(11)

        if cs_uri_query = "-" Then 'если вместо данных прочерк, то заменяем на пустоту. У вас может такого не быть, либо встречатся другой символ
          cs_uri_query = ""
        End if

        sql = "INSERT INTO STATS_SITE VALUES ( to_date('" & data & " " & time & "', 'yyyy-mm-dd hh24:mi:ss'), '" & cs_method & "', '" & cs_uri_stem & "', '" & cs_uri_query & "', '" & s_port & "', '" & c_ip & "', '" & sc_status & "', '" & sc_substatus & "', '" & sc_bytes & "', '" & cs_bytes & "', '" & time_taken & "')"
        OraDatabase.ExecuteSQL(sql)
        isRunCommit = true
        WriteLog(vbCrLf & sql)
      End If
    End If
    idx = idx - 1
  Loop
  if isRunCommit = True Then
  'file.Delete 'как бы удаление файла после удачной обработки и добавления в базу
  'OraSession.CommitTrans
  end if
  'if isRunCommit = True Then OraSession.CommitTrans
Next
End Sub

'-----------------------------------------------------------
'Функция записи лог файла

Function WriteLog(Text)
   Const ForReading = 1, ForWriting = 2
   Dim f
   
  Set f = FSO.OpenTextFile(FileLog, 8, True)    
    f.Write Text & vbCrLf
    f.Close
   
End Function