Path/File access error 75

[sharky12345]

I am trying to move and rename the activeworkbook to another folder but I keep getting an Error 75 Path/File access error.

I'm using this:

Dim sFolder As String
Dim dFolder As String

sFolder = ThisWorkbook.Path & "\"
dFolder = ThisWorkbook.Path & "\Update Folder\"

Name sFolder & ThisWorkbook.Name As dFolder & ThisWorkbook.Name

I have full read and write permissions on the drive in question, (which happens to be on a network), and the line which throws the error is:

Name sFolder & ThisWorkbook.Name As dFolder & ThisWorkbook.Name

I have tried saving a copy of the current workbook by using this:

Dim sFolder As String
Dim dFolder As String

sFolder = ThisWorkbook.Path & "\"
dFolder = ThisWorkbook.Path & "\Update Folder\"

ActiveWorkbook.SaveAs dFolder & "Test.xlsm"

and it works fine, the problem I then have is I get a permission denied error when I try to delete the original file, hence I thought the 'Name' procedure would be more efficient.

Is anyone able to offer me advice or an explanation as to why this won't work?

 

[gallen]

Maybe you could try

DoEvents

after the save and before the kill? Clutching at straws though

 

[sharky12345]

Tried that too gallen, no change......very odd

 

[gallen]

What size is the file that is being Saved? When I'm testing, I'm using a single sheet blank workbook. Maybe test the code on a blank workbook first. If that works we'll know it's related to the workbook, if you still get the issue then it's something outside of excel.

 

[gallen]

All I can suggest at this point is starting another thread for the new issue, maybe another member knows exactly what causes it

 

[sharky12345]

Thanks gallen - I'll do some testing on a blank workbook as you suggest and then start a new thread....