Contact Us Now

Var
  iList: Integer;
  tmpSub: String;
  tmpList: TStringList;
Const
  ctOutputPath = 'C:\Test\Out\';
Begin
  psExitCode:= 1;
  // ... add your code here
  psVSA := '';
  tmpList := TStringList.Create;
  Try
    psListPaths(ctOutputPath, '*.*', 0, tmpList);
    for iList := 0 to (tmpList.Count-1) do
    Begin
      tmpSub := tmpList.Strings[iList];
      tmpSub := psStringReplace(tmpSub, ctOutputPath, '');
      tmpList.Strings[iList] := tmpSub;
    End;
    psVSA := tmpList.CommaText;
    // Debug
    psLogWrite(1, '', 'SubFolder found: ' + psVSA);
  Finally
    tmpList.Free;
  End;
End.

Var
  iList: Integer;
  tmpSub: String;
  tmpList: TStringList;
Const
  ctOutputSubPathNone = 'None\';
Begin
  psExitCode:= 1;
  // ... add your code here
  psVSB := ctOutputSubPathNone;
  // Iterate
  tmpList := TStringList.Create;
  Try
    tmpList.CommaText := psVSA;
    tmpList.Sort;
    for iList := (tmpList.Count-1) downto 0 Do
    Begin
      tmpSub := tmpList.Strings[iList];
      tmpSub := psStringReplace(tmpSub, '\', '');
      psLogWrite(1, '', 'Sub: ' + tmpSub);
      If Pos(LowerCase(tmpSub), LowerCase(psFileName)) <> 0 Then
      Begin
        psVSB := tmpSub;
        Break;
      End;
    End;
    // Debug
    psLogWrite(1, 'Destination SubFolder will be: ', psVSB);
  Finally
    tmpList.Free;
  End;
End.