[suliman alahdl]

السلام عليكم ورحمة الله وبركاته

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

واضفت هذا الكود لم يتم النقل

lRet = CopyFile(App.Path & "\copy", App.Path & "\" & zYear & "\copy", False)

If lRet Then
MsgBox "تم نسخ المجلد copydb بنجاح"
Else
MsgBox "لم يتم نسخ المجلد copy"
End If

ارجو مساعدتي