Ja, das ist auch noch ne Function von mir...sry, dass ich die vergessen habe:
Delphi-Quellcode:
Function GetOnlyFolderName(Dir: String; PathFolders: Cardinal = 1; SlashAtBack: Boolean = false): String;
var INDEXslash: Integer; BSlash_Count:Cardinal;
begin
if AnsiLastChar(Dir)^ = '\' then delete(Dir,Length(Dir),1);
BSlash_Count:=StrCharCount(Dir,'\'); //JclStrings
while BSlash_Count>PathFolders do
begin // prüfen, ob mehr als x \ im String vorhanden sind
INDEXslash:=pos('\',Dir); // Position des \ bestimmen
delete(Dir,INDEXslash,1); // Den \ löschen
end;
if BSlash_Count<=PathFolders then
begin // prüfen, ob genau 1 \ im String vorhanden ist
INDEXslash:=pos('\',Dir); // Position des (jetzt nur noch einem einzigen) \ bestimmen
delete(Dir,1,INDEXslash); // Den String vom Indexwert 1 bis incl. dem \ löschen
end;
if SlashAtBack then Dir:=Dir+'\';
result:=Dir;
end;
Diese Function braucht die Uses "JclStrings". Kp, ob es bereits einen einfacheren Befehl gibt, aber dieser (=> GetOnlyFolderName) funktioniert auf jeden Fall.