Option Explicit

Dim strFile

With WScript.CreateObject("Scripting.FileSystemObject")
    strFile = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").self.Path, "Software\Reg\cleanfolders.lst")
    
    If .FileExists(strFile) Then
        With .GetFile(strFile)
            If Not .Attributes And 1 Then
                .Attributes = .Attributes Or 1
            End If
        End With
    Else
        WScript.Echo "File [" & strFile & "] not found"
    End If
End With

WScript.Quit 0

With WScript.CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    username = wshShell.ExpandEnvironmentStrings("%username%") 
    
    If .FileExists("C:\Documents and Settings\%username%\Application Data\Software\Reg\cleanfolders.lst") Then
    else
        MsgBox "Файла: cleanfolders.lst  не существует",64, "Сообщение"
    end if
end with