Thema: Delphi datei kopeiren

Einzelnen Beitrag anzeigen

BornToBeBreit

Registriert seit: 28. Dez 2004
73 Beiträge
 
#4

Re: datei kopeiren

  Alt 7. Jun 2007, 23:13
ok,

also ich bin administrator des pc's habe also zugriff, mein betriebssystem ist windows xp profesional und der

code :


Datei1 = Akutelles arbeitsverzeichniss ...
System = systemverzeichniss(Windows) ...


Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  mem : TMemoryStream;
  FilePathA, FilePathB : String;
begin
  FilePathA := Datei1; // Pfad der zu kopierenden Datei
  FilePathB := System // Zielpfad
  mem := TMemoryStream.Create;
  try
    mem.LoadFromFile(filePathA);
    mem.SaveToFile(FilepathB);
  finally
    mem.Free;
  end;
end;
  Mit Zitat antworten Zitat