Código Delphi [-] var Ori,Des: string; begin Ori:= 'C:\PRUEBA.TXT'; Des:= 'E:\PRUEBA.TXT'; MoveFile(PChar(Ori), PChar(Des)); end;
var Ori,Des: string; begin Ori:= 'C:\PRUEBA.TXT'; Des:= 'E:\PRUEBA.TXT'; MoveFile(PChar(Ori), PChar(Des)); end;