Var
  iOrder, iDataFile: Integer;
  tmpDataFile, tmpDataFilter, tmpEntry: String;
  tmpDataFiles, tmpOrders, tmpList: TStringList;
Const
  ctDataPath = 'C:\Test\Customer\Data\Arkiveringstest\';
Begin
  psExitCode:= 0;
  psVSA := ''; // Directory Filter Setup
  (*
  Art;Ordrenr.;Arkiveret;Arkivdato;Jobnavn;Kundenavn;Statuskode;Ordretype;S‘lger;Ordrestyrer
  Ordre;9876543;SAND;17-11-2023;Arkiveringstest;Limagito Complete;AABEN_ARKIV;ARK;TEAM-E;MHOE
  *)  
  tmpDataFilter := '*' + FormatDateTime('YYYY-MM-DD', Now) + '*.csv';
  tmpDataFiles := psListFilesEx(ctDataPath, tmpDataFilter, False);
  If Assigned(tmpDataFiles) and (tmpDataFiles.Count > 0) Then
  Begin
    for iDataFile := 0 to (tmpDataFiles.Count - 1) Do
    Begin
      tmpDataFile := tmpDataFiles.Strings[iDataFile];
      tmpOrders := TStringList.Create;
      Try
        Try
          tmpOrders.LoadFromFile(tmpDataFile);
          If tmpOrders.Count > 1 then // First entry is header
          Begin
            For iOrder := 1 to (tmpOrders.Count-1) Do
            Begin
              tmpList := TStringList.Create;
              tmpList.Delimiter := ';'; tmpList.QuoteChar := '#'; tmpList.StrictDelimiter := True; 
              Try
                tmpList.DelimitedText := tmpOrders.Strings[iOrder];
                If tmpList.Count >= 6 Then
                Begin
                  psVSA := psVSA + '*\' + LeftStr(tmpList.Strings[5], 1) + '\' + tmpList.Strings[5] + '\Ordre\' + tmpList.Strings[1] + '\*;';
                  psLogWrite(1, '', 'Directory filter adjusted to ' + psVSA); 
                  psExitCode := 1;      
                End;
              Finally
                tmpList.Free;
              End;                
            End;          
          End;
        Except
          psLogWrite(1, '', 'LoadFromFile Error, ' + tmpDataFile);  
        End;            
      Finally
        tmpOrders.Free;
      End;  
    End;
  End
  Else
    psLogWrite(1, '', 'No valid data files available');   
  // Free Var
  If Assigned(tmpDataFiles) Then 
    tmpDataFiles.Free;
End.