تعديل على كود نقل ملفات

[figo82eg]

ارجو من الأخوة الأعضاء المساعدة فى التعديل على هذا الكود الذى وظيفته نقل ملفات pdf من مجلد الى أخر حيث يقوم بعملية النقل مع حذف الملف القديم اذا وجد تشابه .

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

Private Sub Command0_Click()
On Error Resume Next
Dim rs As DAO.Recordset
Dim fso
("Set fso = VBA.CreateObject("Scripting.FileSystemObject
("Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE

If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst
    Do Until rs.EOF = True
        

       
"sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf
"\sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old
fso.CopyFile sSourceFile, sDestinationFile, True
fso.DeleteFile sSourceFile
rs.MoveNext
    Loop
Else

    "MsgBox "no number
End If

"MsgBox "ok
rs.Close
Set rs = Nothing
End Sub
 

[أبوبسمله]

اخى الفاضل

راجع هذه المشاركه لاخى واستاذى ابو ادم جزاه الله خيرا

والمشاركه اللتى بعدها مباشره ان شاء الله تجد الحل فيها

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

 

[figo82eg]

شكرا على الرد والاهتمام

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم جزاهم الله خيرا

هل وجدت به ما تريد اخى ؟