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

من طرف **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

من طرف **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

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

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

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