منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin

كود بسيط جدا لنسخ ملف

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كود بسيط جدا لنسخ ملف

مُساهمة من طرف 123 في الأحد يونيو 27, 2010 3:29 pm


'Notes: strOrigFile is the file that you want to copy
' strNewFile is the file that you want to copy strOrigFile to
' If lngOverwrite is set to a nonzero value (1), the function will fail if the destination file already exists
' If lngOverwrite is set to 0, the destination file will be overwritten if it exists
'
'==================================================
Public Declare Function CopyFile& Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)
Public Sub CopyAFile(strOrigFile As String, strNewFile As String, lngOverwrite As Long)
CopyAFile = CopyFile(OrigFile, NewFile, Overwrite)
If CopyAFile = 0 Then
' Insert Error Handling routine here
Exit Sub
End If
End Sub

123
عضو نشط
عضو نشط

عدد المساهمات : 34
نقاط : 164
تقييم العضو : 0
تاريخ التسجيل : 15/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كود بسيط جدا لنسخ ملف

مُساهمة من طرف SiteAdmin في الإثنين يونيو 28, 2010 9:18 am

Thanks a lot
But
Is this a simple code Smile I guess that using kernel32.dll is not a simple

I think that The simplex cod yet to copy file is using Visual basic function filecopy as below

الكود:
Filecopy (“c:\test\myfile.txt”,”d:\test\newfile.txt”)


Notes :
* using this way will over write file if its already exist .
* we renamed file while coping it

In Arabic
شكرا
لكن
اعتقد انه ليس كود بسيط ان نستخدم ملف المكتبات Kernel.dll لنسخ ملف واعتقد ان ابسط كود لنسخ ملف هو استخدام دالة فجيوال بيسيك filecopy كالتالى

الكود:
Filecopy (“c:\test\myfile.text”,”d:\test\newfile.txt”)

لاحظ : هذه الطريقة ستقوم باحلال الملف اذا كان موجود بالفعل .
قمنا بتغيير اسم الملف اثناء نسخة من myfile.txt إلى newfile.txt

_________________
Best Regards
Site Administrator
avatar
SiteAdmin
Admin
Admin

عدد المساهمات : 333
نقاط : 2040
تقييم العضو : 6
تاريخ التسجيل : 09/06/2010
العمر : 43
الموقع : Banker

http://ahlakalam.to-relax.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى