Pascal Script Archives - Page 21 of 30 - File transfer tool from Limagito

01 Nov
Create subfolders ahead with Limagito File Mover
Q: We’re trying to create subfolders ahead with a rule in a following format: 2021\11 Nov21
Is it possible to do this with an empty rule eg there’s no source file to move/copy? What would be the best way to handle this? Many thanks
A: This is possible using our ‘Pascal Script’ as Source option. In this case no source files are needed.
First add ‘Pascal Script’ as Source:
Add the following Pascal Script code. Do not forget to adjust the ctPath const, end with a \
Var tmpSubPath: String; Const ctPath = 'C:\Test\Out_PSC\'; Begin psExitCode:= 1; // Create subfolders in the following format: 2021\11 Nov21 tmpSubPath := FormatDateTime('YYYY\DD MMMYY', Now); If ForceDirectories(ctPath + tmpSubPath) then psLogWrite(1, '', 'Create Directory: ' + ctPath + tmpSubPath + ', Successful') Else psLogWrite(1, '', 'Create Directory: ' + ctPath + tmpSubPath + ', Error') End.
This script will create a single subfolder when it is triggered using the current date. Of course it can be modified so it fits your needs, just let us know.
Update, received the following question from user: Is there a way to add +1 to either month or date so I can adjust as required?
1) To add a day, replace: tmpSubPath := FormatDateTime(‘YYYY\DD MMMYY’, Now);
by
tmpSubPath := FormatDateTime(‘YYYY\DD MMMYY’, psIncDay(Now, 1));
2) To add a month, replace: tmpSubPath := FormatDateTime(‘YYYY\DD MMMYY’, Now);
by
tmpSubPath := FormatDateTime(‘YYYY\DD MMMYY’, psIncMonth(Now, 1));

#FileTransfer
If you need any info about this ‘create subfolders ahead’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script ahead, subfolders
31 Oct
Corrupted TAR file, error management during unzip
Q: Error management during unzip request.
We received a broken package (TAR file) in a folder processed by Limagito. The rule is to unpack any zip or tar file arriving in that folder and then move the zip or tar file.
But for the broken package “example.tar” the file remains in the folder and is processed again and again.
22/10/2021 14:51:47 Execute: ID1[ZIP]\\nas\Media\Work\FilesUnpack\
22/10/2021 14:51:47 7z Item Count of \\nas\Media\Work\example.tar: 4
22/10/2021 14:51:47 7z Item 1, File: \\nas\Media\Work\FilesUnpack\.\example1.jpg
22/10/2021 14:51:47 7z Item 2, File: \\nas\Media\Work\FilesUnpack\.\example2.jpg
22/10/2021 14:51:47 7z Item 3, File: \\nas\Media\Work\FilesUnpack\.\example.mpg
22/10/2021 14:52:19 7z Extract Selected Exception: Data error
22/10/2021 14:52:19 UNZIP Error \\nas\Media\Work\example.tar to \\nas\Media\Work\FilesUnpack\;3560701952
The file is not moved. The process never ends. I configure the error notification by mail. And this works. What would be your advice to manage this?
EX: move the file in error in another folder.
A: In version v2021.10.30.0 we added a Pascal Script var to achieve your request. psDeleteAfterCopy which is an integer can only be used in the Destination Pascal Script (0 = error occurred, we will not delete the Source file).
Some screenshots to get you started. We assume the Source (WIN, scanning compressed files) and Destination (UNZIP) part is already setup in our File Mover. So to add error management to this setup you’ll have to add ‘Pascal Script’ as second Destination. Important, the Pascal Script must come after the UNZIP.
Add the following Pascal Script code, do not forget to adjust the crErrorPath constant, it must end with \ :
Const ctErrorPath = 'C:\Test\Error\'; Begin psExitCode:= 1; // ... add your code here If psDeleteAfterCopy = 0 Then begin If psMoveFile(psFilePath + psFileName, ctErrorPath + psFileName) Then psLogWrite(1, '', 'Moved ' + psFilePath + psFileName + ' to ' + ctErrorPath) Else psLogWrite(1, '', 'Move Error of ' + psFilePath + psFileName + ' to ' + ctErrorPath); End; End.
In case of error the source file will be moved to the ctErrorPath, in our case it is: C:\Test\Error\
#FileTransfer
If you need any info about this ‘error management during unzip’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script ZIP corrupt, corrupted, tar, unzip
01 Oct
Immediate folder name as filename in Limagito File Mover
Q: I am trying to append a folder name to a file name but having a little trouble. The file is under 1 or 2 subfolder. After the file move I would like to append the very last folder name to the file name , and I don’t want to copy the source folder structure. Can you help me.
A: Yes this is possible using some Pascal Script. We’ll need two destinations.
The first destination must be our ‘Pascal Script’. This script will strip the immediate subfolder from the complete subfolder part.
The second destination will be a Windows folder (WIN). In this destination we’ll rename the file using the info from the first destination (pascal script).
Let’s start with the first destination (Pascal Script):
Var iList: Integer; tmpEntry: String; tmpList: TStringList; Begin psExitCode:= 1; // ... add your code here psVSA := Trim(psStringReplace(psFilePath, psSourcePath, '')); If psVSA <> '' Then Begin tmpList := TStringList.Create; Try tmpList.Delimiter := '\'; tmpList.DelimitedText := psVSA; psVSA := ''; // Iterate For iList := (tmpList.Count - 1) DownTo 0 Do Begin tmpEntry := Trim(tmpList.Strings[iList]); If tmpEntry <> '' Then Begin psVSA := tmpEntry; Break; End; End; Finally tmpList.Free; End; End; // Adjust If psVSA <> '' Then psVSA := psVSA + '_'; // Debug psLogWrite(1, '', 'Stripped SubFolder: ' + psVSA); End.
Next we’ll setup our second destination (WIN):
Don’t forget to disable the ‘Create SubDir’ option if you don’t want to copy the source folder structure.
File renaming setup:
RegEx: (.*)
Replacement: %VSA\1
RunTime Log:
#FileTransfer
If you need any info about this ‘Immediate folder name as filename’ question, please let us know.
Best regards,
Limagito Team
By Limagito-Team Pascal Script WIN filename, folder, immediate