Re: VBScript: Проверка существования файла и смена его аттрибута.

null@example.com (alexii) — Sat, 29 Dec 2012 02:13:37 +0000

Ремер, используйте тэг «code» для оформления кода на форуме. Я поправил Ваш пост.

Сообщения добавьте сами:

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

VBScript: Проверка существования файла и смена его аттрибута.

null@example.com (Ремер) — Fri, 28 Dec 2012 19:15:41 +0000

Необходимо проверить существования файла и если его нет вывести сообщение. Если файл существует то нужно проверить стоит ли у него аттрибут "только чтение", если стоит вывести сообщение, если же нет, поставить атрибут "только чтение" и вывести сообщение об успехе.

Вот что делал, но почему то сообщение выводится не зависимо от того есть файл или его нет, с аттрибутами вообще не знаю как.

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

Серый форум — VBScript: Проверка существования файла и смена его аттрибута.

Re: VBScript: Проверка существования файла и смена его аттрибута.

VBScript: Проверка существования файла и смена его аттрибута.