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

null@example.com (The gray Cardinal) — Fri, 07 Jul 2006 20:22:03 +0000

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

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: проверка, что файл не открыт другим приложением на запись