Flasher
|
 Posted: Thu Aug 04, 2011 21:19 Post subject: |
 |
|
Меня интересует мнение вопрошающего, а не обобщённое.
Ладно, вопрошающий может не отвечать.
Для разминки: | Code: | ' Создание файла или папки
' Параметры: ""%N"" <расширение>
'===============================
On Error Resume Next
N = WScript.Arguments(0)
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
If .FileExists(N) Then
Name = .GetBaseName(N) & "." & Ext
T = Trim("файла")
Else
Name = N
T = Trim("каталога")
End If
L = vbnewline
D = InputBox(L&L&L&L&L&"Введите имя нового "&T&":","Создание "&T,Name)
If D > vbNullString Then
If .FileExists(N) Then
.CreateTextFile(D)
Else .CreateFolder(D)
End If
End If
End With
WScript.Quit |
Можно повесить хоть на Shift+F4, хоть на F7, хоть что угодно.
Last edited by Flasher on Fri Aug 05, 2011 01:57; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
