[Iska]

Код:

For Each strFile In Array("C:\qwerty.txt", "c:\Temp\01.txt", "d:\02\02.log")
    If objFSO.FileExists(strFile) Then
        With objFSO.GetFile(strFile)
            .Attributes = .Attributes And Not ReadOnly
        End With
    End If
Next