Say you're trying to overwrite an existing file, but its attribute is set to "Readonly," so it generates a "Permission Denied" error. The following code shows how to change the attribute to Normal mode to avoid this error:
'Code shows hot to change the attribute of the file
'reference Microsoft Scripting Runtime(Scrrun.dll) must be added.
Dim fs As FileSystemObject
Dim Path as string,Path1 as string
Set fs = CreateObject("Scripting.FileSystemObject")
Path = "C:\Test.bmp"
Path1 = "D:\Test.bmp"
Dim f As File
If fs.FileExists(Path) Then
Set f = fs.GetFile(Path)
If f.Attributes <> 0 Then
f.Attributes = 0 'Normal
Call fs.CopyFile(Path1, Path, True)