extract subdirectory name

[mijack]

let's suppose this :

Delphi-Quellcode:

[b]Label1.caption :='c:\Folfer1\file1'[/b]

i want to dispaly :

label2.caption:=File1    label3.caption:=' nothing to display  '


[b]Label1.caption :='c:\Folder1\Folder2\file1'[/b]

i want to dispaly :

label2.caption:=File1 label3.caption:='repertoire2\'

[Der_Unwissende]

Hi,
what about using some kind of Tokenizer (e.g. split). Just split the input by the PathSeperator, which will return a Stringlist containing one entry per directory (and of course the file). So the first entry will be the drive, the second one contains the "main"-directory, the last one will contain the fileName, the entrys beetween the second and last one are subfolders.

Regards Der Unwissende

[mijack]

Thank you Der_Unwissende

Could you please give me an Exemple .

[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