MoveFolder. Run-time Error 76, Path Not Found

I am getting the following run time error when trying to use MoveFolder from the scripting runtime library:

run-time error ‘76’
path not found

The source and destination paths are picked up out of cells and I think the spaces in the name or the length of the path names may be causing the problem.

The source folder looks something like this (contains 50 characters):
K:Example123 Folder1AB CD ESubfold,XX abcdefgh

The destination folder looks something like this (contains 60 characters):
K:Example123 Folder1XX New123AB CD ESubfold,XX abcdefgh

The code is pretty basic:



Sub MoveFolder(Sourcepath As String, Destinationpath As String)
Dim FSO As Scripting.FileSystemObject

Set FSO = New Scripting.FileSystemObject

'some code here removes the trailing backslashes on the
'end of the pathnames

FSO.MoveFolder Sourcepath, Destinationpath
End Sub

I have double checked the source path name exists. I have also tried doing it manually with the path names being entered in as text but i keep getting the error.