[Iska]

как снять аттрибут (чтение) с файла, »

Атрибута «чтение» не существует в природе. Есть атрибут «ReadOnly», в просторечии именуемый атрибутом «Только для чтения»: File Attribute Constants.

Для чтения/установки атрибутов в WSH используется свойство «.Attributes» (Attributes Property):

Код:

Option Explicit

Const ReadOnly = &H01

Dim objFSO
Dim objFile


Set objFSO  = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\qwerty.txt")

' Очистить атрибут «ReadOnly»
objFile.Attributes = objFile.Attributes And Not ReadOnly

' Установить атрибут «ReadOnly»
'objFile.Attributes = objFile.Attributes Or ReadOnly

Set objFile = Nothing
Set objFSO  = Nothing

WScript.Quit 0

[O L E G]

Iska, подскажи как Указать сразу не сколько файлов, с которых мне нужно снять аттрибут

[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

[O L E G]

Iska, Опробовал Скрипт, выдает ошибку.
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Documents and Settings\Admin\Рабочий стол\Документы\vbs\14.vbs
Строка: 2
Символ: 5
Ошибка: Требуется объект: 'objFSO'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

[Iska]

O L E G, код, приведённый в #4, не самодостаточный (и, увы, к тому же, содержит грубое упущение; приведённая ошибка связана не с ней). Он просто иллюстрирует, как можно:

Указать сразу не сколько файлов, с которых мне нужно снять аттрибут »

Я полагал, что Вы уже освоились в WSH.

Вот пример полного кода:

Код:

Option Explicit

Const ReadOnly = &H01

Dim strFile

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

WScript.Quit 0

[O L E G]

Iska, Освоил НО, по верхностно. Благодарен