Q: I have another question we have big differences as far as the number of images some of our agencies sending us and the destination vendor receiving. They are asking if Limagito can count the number of files transferred to destination.
A: In this blog article we added some scripts to count the files sent to a Destination. Transferred files counter data will be written to a monthly csv file. Each scan will be an entry in the csv file (which can be handled in Excel). This is just an example and can be adjusted to your needs.
- Open our Pascal Script option:
- Enable and add the following ‘On Rule Begin’ script:
- psVIA: an Integer variable which will count the amount of files transferred during the scan
- psVSA: a String variable which will be used as the filename of the counter csv ( i.e. 2023.august.csv )
- psVSB: a String variable which will be used for the Date entry in the csv file ( first column )
Begin psExitCode:= 1; // ... add your code here psVIA := 0; // Current Month counter csv filename -psVSA psVSA := FormatDateTime('YYYY.MMMM', Now) + '.csv'; // Current Day - psVSB psVSB := FormatDateTime('YYYYMMDDHHNNSS', Now); End.
- Enable and add the following ‘On Rule End’ script. Don’t forget to adjust the ctCsvPath constant. This is where we will store the csv files.
Var tmpData, tmpFile: String; tmpSuccess: Boolean; tmpList: TStringList; Const ctCsvPath = 'C:\Test\Csv\'; // Must end with a \ Begin psExitCode:= 1; // Check if files were moved or copied If psVIA = 0 Then Exit; // Init Var tmpData := psVSB + ',' + IntToStr(psVIA); tmpFile := ctCsvPath + psVSA; tmpSuccess := True; tmpList := TStringList.Create; Try If FileExists(tmpFile) Then Begin Try tmpList.LoadFromFile(tmpFile); Except tmpSuccess := False; psLogWrite(1, '', 'LoadFromFile, ' + tmpFile + ' error, counter data will not be saved: ' + tmpData); End; End Else tmpList.Add('Date,Value'); // Check If tmpSuccess Then Begin tmpList.Add(tmpData); // Save To File Try tmpList.SaveToFile(tmpFile); psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' successful'); Except psLogWrite(1, '', 'SaveToFile ' + tmpFile + ' error, could not save counter data: ' + tmpData); End; End; Finally tmpList.Free; End; End.
- Set Function Destination Option to ‘Exit Cyclus on Error’. This will skip a next Destination if an error occurs. The last Destination will be a Script where we increase the amount of files transferred so we want to make sure that the previous Destination(s) were successful.
- The last Destination should be the following Pascal Script:
Begin psExitCode:= 1; // ... add your code here psVIA := psVIA + 1; End.
- Counter values will be stored in a monthly csv file which can be handled in Excel (or alternative):
If you need any info about this ‘count the number of files transferred’ request, please let us know.
#mft #filetransfer #filemanagement
Best regards,
Limagito Team
