شرح ايعاز

جرب هذا الكود

Dim fso
Dim folder As String
folder = "\\pc3\e:\b.txt" ' غير الى المسار الذى سيتم النقل اليه
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(folder) Then
    'MsgBox folder & " مسار صحيح", vbInformation, "Path Exists"
    CopyFile "\\server\d$:\b.txt", "\\pc3\e:\b.txt", False
Else
    MsgBox folder & " مسار غير صحيح", vbInformation, "Invalid Path"
End If

false

تعنى الايتم النسخ اذا كان هناك ملف بنفس الاسم فى المسار الذى يتم اليه النسخ و يعطى رسالة خطأ

اذا كانت true او لم يتم تحديدها ( تركت فارغة )

هذا يعنى ان يتم استبدال الملف ان وجد

اخي العزيز شكرا وجزاك الله كل خير