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

2006-07-07T20:22:03Z

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

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

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

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