Batya
|
 Posted: Fri May 22, 2009 13:15 Post subject: |
 |
|
GGS
Ну, если уж дорабатывать, то через %comspec% 
| Code: | TOTALCMD#BAR#DATA
%comspec% /c
if /i not exist "Новая папка" (md "Новая папка"&exit) else for /l %%a in (2,1,999) do if /i not exist "Новая папка (%%a)" (md "Новая папка (%%a)"&exit)
shell32.dll,3
Новая папка
1
-1
|
Ну и свои 5 копеек.
Создаем vbs-скрипт:
| Code: | Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(NextName(WScript.Arguments(0)))
Set FSO = Nothing
WScript.Quit
Function NextName(pName)
Dim lCurrentFolder, lPath, k
lCurrentFolder = CreateObject("WScript.Shell").CurrentDirectory & "\"
lPath = lCurrentFolder & pName
If Not FSO.FolderExists(lPath) Then
NextName = lPath
Exit Function
End If
k = 1
Do
lPath = lCurrentFolder & pName & " " & k
k = k + 1
Loop While FSO.FolderExists(lPath)
NextName = lPath
End Function |
Кнопка:
| Quote: | TOTALCMD#BAR#DATA
C:\Путь\до\скрипта.vbs
"Новая папка"
shell32.dll,3
Новая папка
1
-1 |
Синим - собственный путь к скрипту.
Параметр выполнения скрипта (зеленый) - желаемое имя папки.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
