السلام عليكم
الماكرو التالي يسمح بنقل ملفات موجودة في مجلد إلى مجلد أخر على نفس الحاسوب
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
أما أنا أريد نقل ملفات موجودة في مجلد من الحاسوب أ
إلى مجلد أخر في حاسوب ثاني على شبكة داخلية
وشكرا