Meine "Verschiebefunktion" soll automatisch überschreiben.

**Rapthor**

Wie krieg ich folgende Funktion so geschrieben, dass sie ggf. automatisch überschreibt ?

Delphi-Quellcode:

			function verschieben(FromPos, ToPos: String): Boolean;

begin

if (ToPos[Length(ToPos)] <> '\') then

    ToPos := ToPos + '\';

    Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos));

end;

Dateioperationen mit SHFileOperation

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Meine "Verschiebefunktion" soll automatisch überschreiben.

Meine "Verschiebefunktion" soll automatisch übersc

Re: Meine "Verschiebefunktion" soll automatisch üb

Forumregeln

Rapthor Registriert seit: 30. Nov 2002 139 Beiträge	#1 Meine "Verschiebefunktion" soll automatisch übersc 15. Okt 2003, 13:14 Wie krieg ich folgende Funktion so geschrieben, dass sie ggf. automatisch überschreibt ? markieren Delphi-Quellcode: function verschieben(FromPos, ToPos: String): Boolean; begin if (ToPos[Length(ToPos)] <> '\') then ToPos := ToPos + '\'; Result := RenameFile(FromPos, ToPos + ExtractFileName(FromPos)); end;
	Zitat

Marco Haffner (Gast) n/a Beiträge	#2 Re: Meine "Verschiebefunktion" soll automatisch üb 15. Okt 2003, 16:00 Dateioperationen mit SHFileOperation
	Zitat