Please help me with this error
 

Hi!!
I have a macro he
Sub copy()
'
' copy Makro
' Makro indspillet 07-09-2004 af Alvin Hansen
'


Dim FSO As Object
Dim FromPath As String
Dim ToPath As String


FromPath = "h:\city breaks"
ToPath = "C:\city breaks"

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(FromPath) = False Then
MsgBox "From Folder doesn't exist"
Exit Sub
End If

If FSO.FolderExists(ToPath) = False Then
MsgBox "To Folder doesn't exist"
Exit Sub
End If
FSO.CopyFolder Source:=FromPath, Destination:=ToPath

End Sub

I have no trouble with thid before to day
now i get a persmission dennied error why ??
I dont belive i have change anything on my pc??

Best regards
Alvin