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

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

Ветеран


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

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


Похоже, на какое-то упражнение из учебника, но если нужно решить реальную задачу - вот скрипт на VBS:
Код: Выделить весь код
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\temp\file.txt") Then
    WScript.Quit
Else
     cmd = WSHShell.Run("notepad",1,True)
     Set objFile = objFSO.CreateTextFile("C:\temp\file.txt")
End If

Отправлено: 08:54, 26-01-2011 | #2