Dim o,d
Set oFs = CreateObject ("Scripting.FileSystemObject")
strFolder = "D:\sys"
set oDir = oFs.GetFolder(strFolder)

o=0: d=0
ScanAllSubDirs oDir
MsgBox o & " Objects checked" & vbCR & _
"ReadOnly-Flag has been cleared " & d & " times" &vbCR & _
"in """ & strFolder &"""", (Sgn(d)*16)+48, "Done"