Batya
|
 Posted: Tue Dec 01, 2009 11:06 Post subject: |
 |
|
| Scorpkoms wrote: | | Так то оно так,да только следующий файл с таким именем как? |
vbs-скрипт:
| Code: | '=============================================
' Создание и запуск файла со следующим именем
'
' Параметры:
' {файл}
'=============================================
Dim WSH, FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
File = NextName(GetPath(WScript.Arguments(0)))
FSO.CreateTextFile(File)
WSH.Run """" & File & """", 1, False
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit()
Function NextName(pPath)
Dim i, lFPath, lPath, lName, lExt
lFPath = pPath
lPath = FSO.GetParentFolderName(pPath) & "\"
lName = FSO.GetBaseName(pPath)
lExt = FSO.GetExtensionName(pPath)
Do While (FSO.FileExists(lFPath) Or FSO.FolderExists(lFPath))
i = i + 1
lFPath = lPath & lName & "[" & i & "]" & "." & lExt
Loop
NextName = lFPath
End Function
Function GetPath(pPath)
GetPath = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(pPath))
End Function |
Кнопка:
| Code: | TOTALCMD#BAR#DATA
c:\Полный\путь\к\скрипту.vbs
"новый файл.txt"
%Commander_Path%\WCMICONS.DLL,28
Создание нового файла
-1
|
Где вместо "новый файл.txt" указывайте желаемое.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
