1 Тема от Ремер

  • Ремер
  • Участник
  • Неактивен

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

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

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

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

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Ремер, используйте тэг «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