Frage zu Ordner kopieren

[Nogge]

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.