extract subdirectory name

[Hawkeye219]

Hi mijack,

try a combination of ExtractRelativePath and ExtractFilePath:

Delphi-Quellcode:

var
  s, t : string;
begin
  s := 'c:\Folder1\file1';
  t := ExtractRelativePath('c:\Folder1\', ExtractFilePath(s)); // -> t = ''

  s := 'c:\Folder1\Folder2\file1';
  t := ExtractRelativePath('c:\Folder1\', ExtractFilePath(s)); // -> t = 'Folder2\'
end;

Regards