File Mover Blog

  • 25 Jun

    Can file mover alert me if files haven’t moved from a folder

    How to alert me if files haven’t moved

    Q: We haven’t spoken in a while which means file mover is working great. I have a question though, can file mover alert me if files haven’t moved from a folder it has delivered some files to? I’m having some different trouble with an application which has just started. One input folder is sometimes not moving the files into the next application, when you click on the folder in this application it looks empty, but when you look at the folder in the OS you can see its got loads of files in.
    I would love to have an alert to say that there are 5 or more files in this folder, is there a problem.

    A: This is possible using our scripting option. Please have a look at the following screenshots. If you need any help, please let us know.

    • Important, the “Function” must be set to COPY
    • We added a Windows folder as Source (but any other Source types should work also)

    limagito file mover windows folder as source

    • In our example we want to count files older than 5 minutes so we added the following “File Date Include” filter:

    limagito file mover file filter setup

    • As Destination we added our “Pascal Script” option. The script will use an internal Counter psVIA (pascal script Variable Integer A) to count the amount of files we found.

    limagito file mover destination setup

    Begin
      psExitCode:= 1;
      // ... add your code here
      psVIA := psVIA + 1;
    End.
    

    limagito file mover pascal script as destination

    • Please open our “Rule Events” option:

    limagito file mover rule events option

    • Select and enable “On Rule Begin” event and enable “Enable Pascal Script”. Add the following script which will reset our internal counter psVIA when the Rule begins scanning.
    Begin
      psExitCode:= 1;
      // ... add your code here
      psVIA := 0;
    End.
    

    limagito file mover rule events option

    • Select and enable “On Rule End” event and enable “Enable Pascal Script”. Add the following script. We use a second internal variable psVIB to create a memory function regarding the sending of the email.
    Const
      ctMaxFilesAllowed = 5;
    Begin
      psExitCode:= 0;
      // ... add your code here
      If (psVIA > ctMaxFilesAllowed) Then
      Begin
        If psVIB = 0 Then
        Begin
          psVIB := 1; 
          psExitCode := 1;
          psLogWrite(1, '', 'Send Email, Max files reached');
        End;  
      End
      Else
        psVIB := 0;  
    End.
    

    limagito file mover rule events option

    • Be sure to enable the “Use Pascal Script as Event Precondition” under Options for the “On Rule End’ event. The result of the Pascal Script (psExitCode) will determine of an email will be sent or not.

    limagito file mover rule events option

    • Setup email for the “On Rule End” event.
      • Enable “Enable Mail” option
      • Setup Email
      • Setup Common (or Rule) SMTP. The Common setup can be used by other Rules and is mostly used.

    limagito file rule events option

    limagito file mover email setup

    • We are using the Google SMTP server in this example:

    limagito file mover common smtp setup

    • RunTime Log result:
      • The first time the Rule was triggered, it found more than 5 files and an email was sent.
      • The second time the amount of files was still more than 5 files but we didn’t sent an email. We will wait until the amount of files is lower again to reset this memory status.

    limagirto file move runtime log result

    #Filetransfer #SMTP

    If you need any info about this “alert me if files haven’t moved” option, please let us know.

    Best regards,

    Limagito Team

  • 12 Jun

    How to copy a raw file if a pdf file with the similar name exists

    Q: How to copy a raw file if a pdf file with the similar name exists. I am trying to have a rule run that when the PDF exists in the folder then to copy our .raw file of a similar name. But if the PDF doesn’t exist that means the run isn’t done yet. So we need it to scan the folder looking for a new pdf if there is one the .raw file will then copy. Right now we run a PowerShell to do the work but maybe there’s a better way.

    A: So this would  mean:
    – Limagito Rule would scan for .raw files
    – If .raw files is found > scan different folder (and subfolders) for .pdf file with similar name
    – If pdf file exists then copy .raw file

    Should be possible, we prepared some screenshots.

    – Source Setup, we used a local Windows folder as Source:

    limagito file mover windows folder as source

    – File Filter Setup:

    limagito file mover file filter setup
    – Open our Pascal Script option:

    limagito file mover pascal script option

    – Enable and add the following ‘On Destinations‘ Pascal Script. Do not forget to adjust the pdf Search Path const, must end with a \

    Var
      tmpFilename: String;
      tmpList: TStringList;
    Const
      ctSearchPath = 'C:\Test\Nova\Pdf\';    
    Begin
      psExitCode:= 0;
      tmpList := Nil;
      tmpFilename := ChangeFileExt(psFileName, '.pdf');
      // ... add your code here
      Try
        tmpList := psListFiles(ctSearchPath, tmpFilename, True);  
        If Assigned(tmpList) And (tmpList.Count > 0) Then
        Begin
          psExitCode := 1;
          psLogWrite(1, '', 'Found ' + tmpFilename + ' in ' + ctSearchPath);
        End
        Else
          psLogWrite(1, '', tmpFilename + ' not available yet in ' + ctSearchPath);
      Finally
        tmpList.Free;
      End;  
    End.
    

    limagito file mover on destinations pascal script

    – Enable File Memory (we only want to copy the same .raw file once)

    limagito file mover file memory option

    – We used Copy as Function (that is why we enabled our File Memory option)

    limagito file mover function setup

    – Add Destination for .raw files

    limagito file mover destination setup

    – RunTime Log result

    + at our first try the corresponding pdf was not available yet
    + at our second try we found the corresponding pdf file and copied the raw file

    limagito file mover runtime log result

    #filetransfer #mft #filemanagement
    If you need any info  about this ‘similar name exists’ request, please let us know.

    Best regards,

    Limagito Team

    By Limagito-Team How-to
  • 31 May

    How to convert from XML to JSON format

    Q: We receive some files in XML format. Could you please confirm, if Limagito tool can convert XML files to JSON format? If yes, Do we have any limitations while converting the file type? Please let us know if you need any additional information.

    A: We added an option in version v2023.5.31.0 to achieve this.

    • Our Source will be a Windows folder

    limagito file mover Windows folder as source

    • We added the following include Filename filter because we only want to scan for *.xml files:

    limagito file mover filename filter

    • We’ll need a Pascal Script to convert the xml file to a Json file so we added Pascal Script as Destination:

    limagito file mover destination setup

    • We noticed that the xml we received from the customer was not a valid xml so we added some extra code (line 18) in the script to adjust this

    limagito filemover xml to json

    • Pascal Script we used (don’t forget to adjust the ctOutputPath const):
    Var
     tmpFileInput, tmpFileOutput, tmpResult: String;
     tmpXmlText: String;
     tmpList: TStringList;
    Const
      ctOutputPath = 'C:\Test\Out_JSon\'; // Must end with a \ 
    Begin
      // Init Var
      tmpFileInput := psFilePath + psFileName;
      tmpFileOutput := ctOutputPath + ChangeFileExt(psFileName, '.Json');
      psExitCode:= 0;
      // Read non valid Xml file and adjust before creating Json File
      tmpList := TStringList.Create;
      Try
        Try
          tmpList.LoadFromFile(tmpFileInput);
          tmpXmlText := tmpList.Text;
          tmpXmlText := psStringReplace(tmpXmlText, '-<', '<'); // Adjust Non Valid Xml
          // psLogWrite(1, '', 'StringReplace Xml Result: ' + tmpXmlText); // Debug
          tmpResult := psXmlTextToJSonFile(tmpXmlText, tmpFileOutput, True, True, True, True);
          If tmpResult = '' Then
          Begin
            psLogWrite(1, '', 'Saved Json Data to ' + tmpFileOutput);      
            psExitCode := 1;
          End  
          Else
            psLogWrite(1, '', tmpResult);
        Except
          psLogWrite(1, '', 'Load Xml from ' + tmpFileInput + ' Exception');
        End;
      Finally
        tmpList.Free;
      End;
    End.
    

    limagito file mover convert from xml to json

    In the example above we used The following function:

    Function psXmlTextToJSONFile(Const aXmlText, aJsonFile: String; Const aXmlParse, aXmlPack, aJsonIndent, aJsonEscape: Boolean): String;

    The psXML functions have a aXmlPack option that determines the format returned, Pack = False returns all tags as values with multiple nested levels of objects, Pack = True is simpler and easier to process but does lose some tag names.

    aXmlPack = False : all XML content is converted into Json values, each level with two or three names: #attributes is an optional object from opening tag, #Name
    is the string from <Tag>, and #children which is an array of other Json objects and arrays nested within the tag.

    aXmlPack = True : tags are converted to Names and their content to Values, or nested objects. For a single record, a single object is returned with the tag names
    lost, for multiple records (ie tags of the same name) an array is created with each record being an object.

     

    • RunTime Log Result:

    limagito file mover xml to json runtime log result

    • Json File Result:

     

    limagito filemover xml to json

    • Another available Pascal Script function that can be used only when source xml is valid (direct file to file conversion):

    Function psXmlFileToJSONFile(Const aXmlFile, aJsonFile: String; Const aXmlPack, aJsonIndent, aJsonEscape: Boolean): String;

    • Pascal Script will result in:
    Var
     tmpFileInput, tmpFileOutput, tmpResult: String;
    Const
      ctOutputPath = 'C:\Test\Out_JSon\'; // Must end with a \ 
    Begin
      // Init Var
      tmpFileInput := psFilePath + psFileName;
      tmpFileOutput := ctOutputPath + ChangeFileExt(psFileName, '.Json');
      psExitCode:= 0;
      // Xml File To JSon File
      tmpResult := psXmlFileToJSonFile(tmpFileInput, tmpFileOutput, True, True, True);
      If tmpResult = '' Then
      Begin
        psLogWrite(1, '', 'Saved Json Data to ' + tmpFileOutput);  
        psExitCode := 1;
      End  
      Else
        psLogWrite(1, '', tmpResult);
    End.
    

    limagito file mover convert from xml to json

    #filetransfer #mft #filemanagement #xml #json

    If you need any info  about this ‘Convert from XML to JSON format’ request, please let us know.

    Best regards,

    Limagito Team

1 23 24 25 26 27 28 29 136
SEARCH