我经过2次处理后想从导入文件夹中的缺陷导入文件中取出

时间:2018-10-26 13:50:48

标签: vbscript

我有一个VB脚本,当我们在import文件夹中触发时会用到它,它将创建一个.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

0 个答案:

没有答案