Contact Us Now

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