[THEDOGG]

alexhd, какого файла ?

[Iska]

alexhd, пробуйте:

читать дальше »

Код:

Option Explicit

Const ForWriting   = 2

Dim strFile


strFile = "E:\Песочница\0373\0001.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strFile) Then
		With .OpenTextFile(strFile, ForWriting)
			.Close
		End With
	Else
		WScript.Echo "File [" & strFile & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[alexhd]

Iska, спасибо, то что надо!

[alexhd]

Подскажите как быть если нужно очищать два и более файлов и как в скрипте правильно указать путь к профилю пользователя, если указать "%userprofile%\Песочница\0373\0001.txt" то так не отрабатывает?

[Iska]

как в скрипте правильно указать путь к профилю пользователя, »

Например:

Код:

strFile = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%\0001.txt")

Подскажите как быть если нужно очищать два и более файлов »

Пробуйте (не проверялось):

читать дальше »

Код:

Option Explicit

Const ForWriting   = 2

Dim arrFiles
Dim strFile

Dim objWshShell


arrFiles = Array("E:\Песочница\0373\0001.txt", "E:\Песочница\0373\0002.txt", "%UserProfile%\0001.txt")

Set objWshShell = WScript.CreateObject("WScript.Shell")

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each strFile In arrFiles
		strFile = objWshShell.ExpandEnvironmentStrings(strFile)
		
		If .FileExists(strFile) Then
			With .OpenTextFile(strFile, ForWriting)
				.Close
			End With
		Else
			WScript.Echo "File [" & strFile & "] not found."
		End If
	Next
End With

Set objWshShell = Nothing

WScript.Quit 0

[alexhd]

Iska, отрабатывает так как надо. Еще осталась один нерешенный вопрос для меня-как объединить эту часть кода с другой частью которая выполняет иную задачу, нужно получить на выходе один скрипт вместо двух?

[Iska]

как объединить эту часть кода с другой частью которая выполняет иную задачу, нужно получить на выходе один скрипт вместо двух? »

Как объединить — зависит от кода «другой части».

[alexhd]

Нужно добавить в начало к скрипту во вложении

[Iska]

Используйте два скрипта. Не вижу смысла что-то делать, когда первой же строкой идёт «On Error Resume Next».