وظيفة copyfile ، وظيفة نسخ الملف.
copyfile (
LPCSTR LPEXISTINGFILENAME ، // مسار الملف المصدر
LPCSTR LPNewFilename ، // مسار ملف جديد
BOOL BFaiLifexists // إذا كان ذلك صحيحًا ، إذا كان الملف الجديد موجودًا ، فسيشكل خطأ ؛
غطاء.
) ؛
تُرجع الوظيفة بشكل صحيح للنجاح ، وكاذبة للفشل ؛
مثال:
copyFile (pCHAR ('sql.txt') ، pchar (extractFilePath (application.exename) + '2.txt') ، true) ؛
في وقت لاحق ، عند التجربة ، وجدت أنه يمكن تحويل الملف المصدر دون إضافة وظيفة PCAR ، ولكن لا يمكن استخدام الملف الجديد ، وسيحدث خطأ في تحويل النوع.
استخدم هذا الدليل للبرنامج.
نظرًا لأن الوظيفة تُرجع نوعًا منطقيًا ، يمكن أيضًا كتابتها مثل هذا:
إذا كان copyFile ('d: /yun_yue/sql.txt'،pchar (extractFilePath (application.exename) +' 2.txt ') ، true) ثم)
// و ، يرجى التأكد من أن مسار الملف الخاص بك صحيح ، وإلا فشلت إرجاع الوظيفة.
ShowMessage ("ملف نسخ مكتمل!")
آخر
showMessage ('فشل ملف النسخ!') ؛
يمكن أيضًا نسخ وظيفة CopyFile مع ملفات في جيران الشبكة.
إذا كان copyFile ('// sh-sfis/yun_yue/yun_yue/copytext.txt' ، pchar (extractFilePath (application.exename) + '2.txt') ، false) ثم خطأ)
// تعيين المعلمة الثالثة للدالة هنا إلى FALSE سوف يكتب ملف "2.txt" الموجود في هذا الدليل من طلبي.
ShowMessage ("ملف نسخ مكتمل!")
آخر
showMessage ('فشل ملف النسخ!') ؛