|
@@ -85,10 +85,8 @@ Function CreateProofForJurisdiction(KitID) |
|
|
Dim test |
|
|
Dim test |
|
|
For test = 1 To Qpdf.FileListCount("Proofs") |
|
|
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 |
|
|
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 |
|
|
Next |
|
|
Else |
|
|
Else |
|
|
.SetParamValue "PBMIN",MIN |
|
|
.SetParamValue "PBMIN",MIN |
|
|