Flytte folder fra drev H: til drev E:

Når jeg køre nedenstående kode får jeg følgende fejl:

fejl 70 Permission denied:
Koden virker uden problemer his det er samme drev.
Hvad skal ændres?
Har selvfølgelig kontrolleret for skrivebeskyttelse.
Kan fint oprette, slette foldere på begge drev fra kode.

/fajens

Kode herfra *****************************************
Public Sub flyt_e()

Dim test_1, test_2

Set FSO = CreateObject("Scripting.FileSystemObject")

test_1 = "E:\2014\"        ' distinationsmappe hvortil 10089 skal flyttes
test_2 = "H:\2014\10089"    'kilde folder, 10089 er en folder med filer

FSO.movefolder test_2, test_1

Set FSO = Nothing

End SuB

Kode slut******************