Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Цитата alexhd:
как в скрипте правильно указать путь к профилю пользователя, »
Например:
Код: Выделить весь код
strFile = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%\0001.txt")
Цитата alexhd:
Подскажите как быть если нужно очищать два и более файлов »
Пробуйте (не проверялось):
читать дальше »
Код: Выделить весь код
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
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:52, 09-04-2014 | #6