[Nun-Nun]

Iska,

В какой кодировке это должно быть сохранено?

[Iska]

Nun-Nun, ANSI/1251.

[Nun-Nun]

Iska,

Благодарю! Сохранил файл как vbs (или нужно было как vsh ?), проверил - всё работает.

[Iska]

Сохранил файл как vbs »

Да!

Nun-Nun, вот Вам ещё один обещанный выше вариант, со слежением за файлами:

Скрытый текст

Код:

Option Explicit

Dim objFSO

Dim arrFiles
Dim strFile


arrFiles = Array( _
	"C:\Temp\Twain.log", _
	"C:\Temp\Twain001.Mtx", _
	"C:\Temp\Twunk001.MTX", _
	"C:\Temp\Twunk002.MTX" _
)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	For Each strFile In arrFiles
		If Not objFSO.FileExists(strFile) Then
			With .ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'CIM_DataFile' AND TargetInstance.Name = '" & Replace(strFile, "\", "\\") & "'").NextEvent
				WScript.Sleep 2 * 1000
				.TargetInstance.Delete
			End With
		Else
			objFSO.DeleteFile strFile, True
		End If
	Next
End With

Set objFSO = Nothing

WScript.Quit 0

Кроме того, можно комбинировать идеи — например, сначала проверять существование/ждать появления процесса, затем начинать проверять существование/ждать появления файлов.

[Nun-Nun]

вот Вам ещё один обещанный выше вариант, со слежением за файлами: »

Проверил - работает. Благодарю!

[Nun-Nun]

В реестре под Win 10 не запускается вот такое:

Код:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"TC"="C:\\Total Commander\\Totalcmd.exe"

Кто-нибудь может подсказать в чём причина? На XP это работает.

[Petya V4sechkin]

Nun-Nun, если Total 32-битный, а система 64-битная, попробуйте сюда:
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run

[Nun-Nun]

если Total 32-битный, а система 64-битная, попробуйте сюда: HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Run »

Благодарю! Так действительно работает!