نقل ملفات موجود على شبكة داخلية

[نينوص06]

السلام عليكم

الماكرو التالي يسمح بنقل ملفات موجودة في مجلد إلى مجلد أخر على نفس الحاسوب

Sub CopyFolder(folderpath As String, destfolderpath As String)
Dim fso As Object
Dim fld As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(folderpath)
fld.Copy destfolderpath
End Sub

Sub nabil()
Call CopyFolder("c:\solde", "d:\1")
End Sub

أما أنا أريد نقل ملفات موجودة في مجلد من الحاسوب أ 

إلى مجلد أخر في حاسوب ثاني على شبكة داخلية

 

وشكرا