Thank you Mike!
On Dec 20, 2012 5:21 PM, "Mike Wiebke" wrote:
> You will need to use the attributes property of the folder to check if it
> has the system and hidden bits set.
>
> replace the line
> CheckFolder(oSubFolder)
> with
>
> If oSubFolder.Attributes and 6 Then
> 'skip the folder
> El
You will need to use the attributes property of the folder to check if it has
the system and hidden bits set.
replace the line
CheckFolder(oSubFolder)
with
If oSubFolder.Attributes and 6 Then
'skip the folder
Else
CheckFolder oSubFolder
End If
That was not tested but should get you th
Don't have it right off, but you basically just want to wrap this line in an if
block
CheckFolder oFSO.GetFolder(sSource)
Something like:
If oFSO.GetFolder(sSource) is not read only
CheckFolder oFSO.GetFolder(sSource)
End If
That first line isn't correct syntax, but there should