1

Тема: VBScript: проверка, что файл не открыт другим приложением на запись

Скрипт демонстрирует проверку того, не открыт ли нужный файл какой-либо пограммой на запись. Чтобы понять, как это работает, запустите скрипт два раза подряд с интервалом меньше одной минуты.

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.OpenTextFile("c:\boot.ini", 8) 'открытие файла на запись (добавление)
If Err.Number <> 0 Then
    WScript.Echo "Файл занят."
    WScript.Quit
End If
WScript.Sleep 60000
TextStream.Close
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.