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

ارجو ان يكون هذا هو المطلوب

Dim fs  As New FileSystemObject
Dim ddd As Folder
Dim F1 As String, F2 As String
F1 = "c:\f1\"
F2 = "c:\f2\"
Set ddd = fs.GetFolder(F1)
Dim ff As File
For Each ff In ddd.Files
If Not fs.FileExists(F2 & ff.ShortName) Then
fs.CopyFile ff.Path, F2
End If
Next

يجب اضافة reference الى microsoft scripting runtime

وكذلك تعديل الكود بنفس الطريقة لقارنة المجلد الثاني بالاول

شكرا جزيلا هذا هو المطلوب فعلا وكل عام وانت بالف صحة وسلام