Contact Us Now

Q: I’m trying to move a file that’s within 1 directory and rename the file so that it includes the directory name

Source: C:\Source1\File.txt

Destination: C:\Destination\Source1_File.txt

I want it to take the directory name that it is contained in, then string it to the front of the filename, but move it to it’s destination C:\Destination\.

We would only want it to pertain to the previous directory by 1 level.

• C:\Source1\File1.txt => C:\Destination\Source1_File1.txt
• C:\Source1\Sub\File2.txt => C:\Destination\Sub_File2.txt

A: Yes this is possible using some ‘Pascal Script’

Let’s start with the Source, we added a Windows folder:

In the ‘Directory Filter’ setup we enabled include scanning of subdirectories (optional, is not a must):

Destinations setup, important the first destination must be a ‘Pascal Script’:

First Destination should be a ‘Pascal Script’. We used ‘Source1’ as default PreFix for the Source Root Folder (you can adjust this):

Var
  tmpPos: Integer;
  tmpSubDir: String;
Const
  ctRootPrefix = 'Source1';
Begin
  psExitCode:= 1;
  // ... add your code here
  psVSA := '';
  tmpSubDir := '%SFS';
  tmpPos := pos('\', tmpSubDir);
  If tmpPos<>0 Then
  Begin
    psVSA := Copy(tmpSubDir, tmpPos + 1, Length(tmpSubDir) - tmpPos);
    psLogWrite(1, '', 'Stripped Prefix from SubDir: ' + tmpSubDir + ' : ' + psVSA);  
  End
  Else
    psVSA := ctRootPrefix;   
End.

Second Destination is a windows folder where the source files should be moved/copied to:

Enable and setup File Renaming in the Windows Destination:

File Renaming setup:

• RegEx:   (.*)
• Replacement:   %VSA_\1

RunTime Log result:

Output Folder result: