permission denied when you move a folder from the local disk: \ D to: \ C

[mr steev]

I have this code that moves a folder from the current path to the local disk: \ C The problem I have when the current path of the database is in a disk other than the: \ C Gives a permission denied message This is the code:

<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

So what is the solution ???

[June7]

Please post code between CODE tags to retain indentation and readability.

However, I tested code on my personal laptop and it works.

Are you running this on a computer in a network? Ask your IT people. My IT people set protections that prevent programmatic copying of files/folders. I know because it used to work then with new computers it doesn't.

[mr steev]

I have local computer windows 10 and windows installed on the local disk C:\

When I put my database with myfolder on local disk D:\ and i run my database on main form Gives that message:
70-permission denied

[June7]

Ooops, in my first test, forgot to use drive D:\. Yes, I get that message. As far as I can tell, it is Windows 10 security. Workaround should be to copy then delete. Review

https://www.devhut.net/2010/11/15/ms...move-a-folder/

Have not tested. Might still be issues because I used to have code that copied (not moved) on computers in network system and lost that capability on newer computers.

[mr steev]

Ok ... Thank you so much