[RaggiTech]

كاتب الموضوع : 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