ارجو من الأخوة الأعضاء المساعدة فى التعديل على هذا الكود الذى وظيفته نقل ملفات 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