[RESOLVED] "Permission Denied" when copy folder

[nUflAvOrS]

Private Sub CopyFile()
 
Dim fsObject As FileSystemObject
Set fsObject = New FileSystemObject
 
fsObject.CopyFolder "\\serverName\SPPS\pKCb\Reports", "c:\SPPS\pKCb\", True
 
Set fsObject = Nothing
 
End Sub

Hi All,

Above is my code that hitting error when I'm trying to copy over one of the folder from server to client PC. The error message is "Permission Denied (70)"
Anyone can guide me to resolve my problem?

Thanks a million.