StatusDlg progress to File Copyการใช้ StatusDlg progress แสดงความคืบหน้า ในการก๊อบปี้ หรือคัดลอกไฟล์
ในกรณีย์นี้ เป็นการก๊อบปี้ไฟล์จาก FlashDrive มาไว้ที่ Desktop
และก๊อบปี้ไฟล์จาก Desktop มาไว้ใน FlashDrive
ก่อนอื่นให้ท่านสร้าง Page Form และ Button ขึ้นมา 2 ปุ่ม (ดังรูป)
--------------------------------------------------------
จากนั้นให้สร้างโฟลเดอร์ขึ้นมาใหม่ 2 โฟลเดอร์ ไว้สำหรับเก็บไฟล์
โฟลเดอร์หนึ่ง นำมาไว้ที่ Desktop ตั้งชื่อให้โฟลเดอร์ว่า.. DestBackup
และอีกโฟลเดอร์ นำมาไว้ใน FlashDrive ตั้งชื่อเสียใหม่ว่า.. FlashBackup
เสร็จแล้วให้ดับเบิ้ลคลิ๊กที่ปุ่ม ชื่อ Desktop to FlashDrive เข้าไปเขียนสคริ๊ปคำสั่ง ดังนี้
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("C:\\Documents and Settings\\Administrator\\Desktop\\DestBackup\\*.*", "G:\\FlashBackup\\", true, true, false, true, nil);
error = Application.GetLastError();
StatusDlg.Hide();
if error ~= 0 then
Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.TimedMessage("", "Completed.", 2500, MB_ICONNONE);
end
----------------------------------------------------------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม ชื่อ FlashDrive to Desktop เข้าไปเขียนสคริ๊ปคำสั่ง ดังนี้
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("G:\\FlashBackup\\*.*", "C:\\Documents and Settings\\Administrator\\Desktop\\DestBackup\\", true, true, false, true, nil);
error = Application.GetLastError();
StatusDlg.Hide();
if error ~= 0 then
Dialog.Message("Error", "There was an error copying the files to your system. Please try again.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.TimedMessage("", "Completed.", 2500, MB_ICONNONE);
end
------------------------------------------------------------------
แนะนำ:เพื่อความสดวกและรวดเร็ว ให้ก๊อบปี้โค๊ด แล้วนำไป paste ใส่ใน Script Editor ได้เลย.
อนึ่ง..การก๊อบปี้จาก FlashDrive to Desktop จะทำได้รวดเร็วกว่าการก๊อบปี้จาก Desktop to FlashDrive
ลองนำไปประยุกต์ใช้กับการก๊อบปี้จากแผ่นCD ลงสู่เครื่อง หรือ Drive to Drive ก็ได้นะครับ
