diff --git a/ImportService/TrackingDataImport.vbs b/ImportService/TrackingDataImport.vbs index e097fca..432458e 100644 --- a/ImportService/TrackingDataImport.vbs +++ b/ImportService/TrackingDataImport.vbs @@ -85,10 +85,8 @@ Function CreateProofForJurisdiction(KitID) Dim test For test = 1 To Qpdf.FileListCount("Proofs") - 'objFSO.DeleteFile Qpdf.FileListItem("Proofs",test),1 WshShell.Run "cmd.exe /c DEL /F /Q """ & Qpdf.FileListItem("Proofs",test) & """" ,0,True - 'debug.WriteLine "cmd.exe /c DEL /F /Q """ & Qpdf.FileListItem("Proofs",test) & """" - 'debug.WriteLine Qpdf.FileListItem("Proofs",test) + Next Else .SetParamValue "PBMIN",MIN