[Ahmed_Mansoor]

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

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

PHP كود :

If Dir$(App.Path & "\copy", vbDirectory) <> "" Then

   Dim FSO As Object
   Dim zSource, zDestination As String

   Set FSO = CreateObject("Scripting.FileSystemObject")
   DoEvents
   
   zSource = App.Path & "\copy"
   zDestination = App.Path & "\" & zYear & "\copy"

   FSO.MoveFolder zSource, zDestination
   DoEvents
   
   Set FSO = Nothing
   DoEvents
   
   MsgBox "تم نقل المجلد بنجاح"
   
Else

   MsgBox "لم يتم نقل المجلد,المجلد غير موجود في المسار المحدد"

End If