sEXEcutor
|
 Posted: Sun Jul 09, 2006 04:30 Post subject: Создание пустого файла |
 |
|
Уже были вариации на эту тему, предлагаю свой вариант.
| Code: | '============================================================================================
' Создание пустого файла
' В параметрах укажите параметры
' "%P" {расширение} {редактор (в кавычках)}
' Если не указано расширение, файлу будет присвоено расширение .txt.
' Если вы пишете имя создаваемого файла вместе в расширением, второй параметр игнорируется.
' Редактор можно указывать, только если указано расширение.
' Созданный файл сразу открывается в редакторе, указанном в переменной Editor.
'============================================================================================
Dim FSO, WS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WS = WScript.CreateObject("WScript.Shell")
if WScript.Arguments.Count = 2 then
Ext = "." & WScript.Arguments(1)
else
Ext = ".txt"
end if
if WScript.Arguments.Count = 3 then
Editor = WScript.Arguments(2)
else
Editor = "C:\Windows\Notepad.exe"
end if
FileName = InputBox("Введите имя создаваемого файла" & Ext & ":", "Создание файла", "")
if Len(FileName) = 0 then
MB = MsgBox("Не задано имя файла!", vbOKOnly + vbExclamation, "Создание файла")
WScript.Quit
end if
if Len(FSO.GetExtensionName(FileName)) > 0 then
Ext = ""
end if
FilePath = WScript.Arguments(0) & FileName & Ext
if not FSO.FileExists(FilePath) then
FSO.CreateTextFile(FilePath)
end if
'WS.Run FilePath
WS.Run """" & Editor & """ " & FilePath
Set FSO = Nothing
Set WS = Nothing
WScript.Quit |
Я вообще-то PHP-программер, а это методом тыка написал 
Ниче такой язык, понятный.
Last edited by sEXEcutor on Mon Jul 10, 2006 19:56; edited 5 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
