นวัตกรรม สิ่งประดิษฐ์ และเทคโนโลยี

กรุณา เข้าสู่ระบบ หรือ สมัครสมาชิก.

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
การค้นหาขั้นสูง  

ผู้เขียน หัวข้อ: copy files  (อ่าน 63 ครั้ง)

NAWATTAKAM

  • Administrator
  • Sr. Member
  • *****
  • กระทู้: 379
copy files
« เมื่อ: กุมภาพันธ์ 11, 2019, 09:19:23 PM »

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!");

}
บันทึกการเข้า