How to when files arrive, copy files from an other source directory
Q: I need some help on a Limagito rule I need to write :
- Check files into a source directory.
- When these files arrive, copy files from an other source directory with same filename but different extension.
ie :
Check files named 123456.pregen from c:\Test\Search\
Then copy file c:\Test\In\123456.pdf to c:\dest\
A: Please have a look at the following screenshots:
- We are using a Windows folder as source. The goal is to copy files from here to a destination. Which files will depend on the script we are going to add.
- File Filter Setup:
- Add %VSA as include Filename Filter (%VSA = Variable String A)
- The %VSA will contain the filenames we want to copy. Our Pascal script will add the filenames to this Var.
- Enable ‘Allow parameters in File Name filter’ (File Filter Setup – Advanced Tab):
- Open our Pascal Script option
- Add and enable the following ‘On Rule Begin’ Pascal Script:
- Do not forget to adjust the CtSearchPath (ctSearchFilter and ctSearchSubFolders) Const
Var iList: Integer; tmpFilename: String; tmpList: TstringList; Const ctSearchPath = 'C:\Test\Search\'; // Must end with a \ ctSearchFilter = '*.pregen'; ctSearchSubFolders = False; // False or True Begin psExitCode:= 0; psVSA := ''; // ... add your code here tmpList := psListFiles(ctSearchPath, ctSearchFilter, ctSearchSubFolders); Try For iList := 0 to (tmpList.Count-1) Do Begin tmpFilename := tmpList.Strings[iList]; tmpFilename := ChangeFileExt(tmpFilename, '.pdf'); psVSA := psVSA + tmpFilename + ';'; End; Finally tmpList.Free; End; // Debug psLogWrite(1, '', 'Filename filter as psVSA: ' + psVSA); // Set psExitCode If psVSA <> '' Then psExitCode := 1; End.
- We used a Windows folder as Destination:
- Function is set to Copy in our example but also Move is possible
- If function is set to Copy and you only want to copy the same files once, then please enable our File Memory option:
- RunTime log result:
I forgot on line. If I want to delete my pregen file after copy/move, where can I add it on code ?
In this case some adjustments to the pascal script are needed:
- Add and enable the following: ‘On Rule Begin’ Pascal Script
- Do not forget to adjust the CtSearchPath (ctSearchFilter and ctSearchSubFolders) Const
- Add and enable the following: ‘On Rule End’ Pascal Script
- The pregen files will be deleted only if no errors occurred
If you need any help with this question, please let us know.
Best Regards,
Limagito Team
#managedfiletransfer #filetransfer #filemanagement
