พิมพ์

กรุณา เข้าสู่ระบบ หรือ สมัครสมาชิก.
1 ชั่วโมง 1 วัน 1 สัปดาห์ 1 เดือน ตลอดกาล
เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น

[NAWATTAKAM]

Delphi

โค๊ด

{
  The CopyFile function copies an existing file to a new file.


 CopyFile(
  lpExistingFileName : PChar, // name of an existing file
  lpNewFileName : PChar,      // name of new file
  bFailIfExists : Boolean);   // operation if file exists

bFailIfExists:
  Specifies how this operation is to proceed if a file of the same name as
  that specified by lpNewFileName already exists.
  If this parameter is TRUE and the new file already exists, the function fails.
  If this parameter is FALSE and the new file already exists,
  the function overwrites the existing file and succeeds.
}

var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.txt';
  fileDest := 'G:\DestFile.txt';
  CopyFile(PChar(fileSource), PChar(fileDest), False);
end;

BCB

โค๊ด

const bool failIfExists = true;
const String fileFrom = "C:\\1.txt"; //For example
const String fileTo = "C:\\1\\3.txt";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 CopyFile(fileFrom.c_str(),fileTo.c_str(), failIfExists);

 if (FileExists(fileFrom.c_str())==false) //if (FileExists("C:\\1.txt")==false)
 ShowMessage("File does not exist!");

}