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

Question

У меня есть сценарий VB, который будет работать при запуске в папке импорта, он создаст файл .flag и файл .done для запуска задания в нашем продукте.Но когда импорт XML-файла не обрабатывается в первый раз, если возникнут какие-либо проблемы с данными, моя работа не будет выполнена, после чего он снова попытается через 15 минут, поскольку я запланировал запуск сценария.Я не хочу, чтобы мой сценарий снова запускал тот же файл в папке импорта, есть ли способ избежать повторной его обработки и провал моей работы.

Sub ProcessOne(sFileName,KeepBackup)    
  Dim oFSO, oFolder

  ' Instantiate FileSystemObject
  Set oFSO = CreateObject("Scripting.FileSystemObject")

  ' Get a handle on the folder that contains the import files
  Set oFolder = oFSO.GetFolder(".").Files

  ' if it is an XML file,
  ' copy it with a .flag extension
  If LCase(Right(sFileName, 4)) = ".xml" Then
    If KeepBackup = "y" Then 
      oFSO.CopyFile sFileName, Replace(sFileName,".xml"," - Backup.xml")
    End If

    If Not oFSO.FileExists(sFileName & ".flag") Then
        oFSO.CreateTextFile (sFileName & ".flag")       
    End If

    oFSO.MoveFile sFileName & ".flag", sFileName & ".done"  
  End If

  ' Clean up!
  Set oFolder = Nothing
  Set oFSO = Nothing    
End Sub