permission denied عند نقل مجلد من القرص المحلي :\D إلى :\C

[mr steev]

السلام عليكم وكل عام وأنتم بخير بمناسبة عيد الأضحى المبارك

لدي هذا الكود يقوم بنقل مجلد من المسار الحالي إلى القرص المحلي  :\C

المشكلة لدي عندما يكون المسار الحالي لقاعدة البيانات في في قرص غير الـ :\C

يعطي رسالة permission denied

هذا هو الكود:

Private Sub Form_Load()
On Error GoTo MyErr
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
    
    FromPath = CurrentProject.Path & "\MyFolder"
    ToPath = "C:\MyFolder"

    If Right(FromPath, 1) = "\" Then
        FromPath = Left(FromPath, Len(FromPath) - 1)
    End If
    If Right(ToPath, 1) = "\" Then
        ToPath = Left(ToPath, Len(ToPath) - 1)
    End If

    Set FSO = CreateObject("scripting.filesystemobject")
    If FSO.FolderExists(FromPath) = False Then
        Exit Sub
    End If
    If FSO.FolderExists(ToPath) = True Then
        Exit Sub
    End If
    FSO.MoveFolder Source:=FromPath, Destination:=ToPath

MyErr:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If

End Sub

فما هو الحل ؟؟؟

وجزاكم الله خيراً

تم تعديل أغسطس 10, 2019 بواسطه mr steev

[mr steev]

تم الحل وذلك بنسخ المجلد إلى الهدف ومن ثم حذفه من المصدر