[Iska]

Непрерывно считывать не надо. Достаточно просто открыть для операций записи. Например:

Код:

With WScript.CreateObject("Scripting.FileSystemObject")
	With .OpenTextFile("E:\Песочница\0139\0001.txt", 8)
		Do
			WScript.Sleep 100
		Loop
		
		.Close
	End With
End With

Папку, содержащую открытый файл, Вы не сможете переместить в Корзину.

[Iska]

Ок спасибо это помогло,а возмо ли его модифицировать Так что бы открывать не только txt файлы но и exe »

Возможно, но может быть чревато. Не рекомендую.

папки »

Нет. См. выше:

Папку, содержащую открытый файл, Вы не сможете переместить в Корзину. »

Удалить (без использования корзины) папку Вы также не сможете, однако прочие файлы из папки помимо открытого — будут удалены.

и так далее »

Что ещё?

Ошибка при открытии файла hosts »

У Вас нет прав или привилегий на открытие этого файла. Либо антивирус банально отфутболивает.

Зачем Вам этот файл держать открытым?!

[Iska]

O L E G, мне сложно воспринимать поток сознания. Я предпочитаю видеть нормальные предложения на внятном русском языке, начинающиеся с заглавных букв и заканчивающихся точкой, або иным знаком препинания. Не возражаю, чтобы пишущий пользовался словарём при написании своего поста.

[O L E G]

Забудь.!

Дальше сам как нибудь разберусь.

[O L E G]

Додумался и сам сделал).
Работает с любыми файлами.

Код:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\e7.jpg", ForAppending, 8)
Do
			WScript.Sleep 10
		Loop

Только пока не могу разобрать, можно ли указать для чтения не один файл (c:\e7.jpg),а к примеру не сколько?

[O L E G]

Все СПС дальше то же разобрался сам.

Код:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\2.txt", ForReading, 1)
   Set s = fso.OpenTextFile("C:\1.txt", ForReading, 1)
Do
			WScript.Sleep 1
		Loop

[O L E G]

Iska, Скажи пожалуйста, такие действия с реестром можно провести?

[Iska]

O L E G, какие? Если Вы хотите таким образом заблокировать раздел реестра от удаления, должен Вас разочаровать: на WSH сие невозможно.

[DmitriiV]

O L E G, а почему Вы пытаетесь защитить объект именно таким способом. Разве нельзя воспользоваться средствами безопасности NTFS?