+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : لنسخ الملفات (/showthread.php?tid=6030)
لنسخ الملفات - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله و بركاتهكود :
Public Sub CopyFile(ByVal source As String, ByVal destination As String, Optional ecrase As Boolean = False)
If (Dir(Source) <> "") Then
If (Dir(Destination) = "") Or Ecrase Then Call FileCopy(Source, Destination)
Else
Call MsgBox("file not found", vbExclamation & vbOKOnly)
End If
End Sub