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

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

Ветеран


Contributor


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

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


Если я правильно вновь перечитал указанную статью, то примерно так (cкрипт VBScript, на указанной ОС не проверялось по причине отсутствия оной):

читать дальше »
Код: Выделить весь код
Option Explicit

Dim strPath2Folder
Dim strNewFilePath
Dim lngCount

If WScript.Arguments.Count <> 0 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strPath2Folder = WScript.Arguments.Item(0)
		
		strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ.txt")
		lngCount = 1
		
		Do
			If Not .FileExists(strNewFilePath) Then
				Exit Do
			Else
				lngCount = lngCount + 1
				strNewFilePath = .BuildPath(strPath2Folder, "Текстовый документ (" & CStr(lngCount) & ").txt")
			End If
		Loop
		
		With .CreateTextFile(strNewFilePath)
			.Close
		End With
	End With
Else
	WScript.Echo "Do not use this script directly"
End If

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:49, 28-06-2012 | #6