Pascal Script

  • 19 Nov

    Pascal Script, Creating a text file

    Dear users,

    Simple Pascal Script to create a txt file containing the files handled by our file mover.

    1 Add PS as Destination

    2. Add the following Pascal Script. Don’t forget to adjust the ctOutputPath and ctOutputFilename.

    Var
    tmpList: TStringList;
    tmpFile: String;
    Const
    ctOutputPath = ‘C:\Test\Out\’;
    ctOutputFilename = ‘Info.txt’;
    Begin
    psExitCode:= 1;
    // Init Var
    tmpFile := ctOutputPath + ctOutputFilename;

    tmpList := TStringList.Create;
    Try
    psLogWrite(1, ”, ‘Add ‘ + psfilePath + psFileName + ‘ to ‘ + tmpFile);
    If FileExists(tmpFile) Then
    tmpList.LoadFromFile(tmpFile);
    tmpList.Append(psFilePath + psFilename);
    tmpList.SaveToFile(tmpFile);
    Finally
    tmpList.Free;
    End;
    End.

    Regards,
    Pascal