_ded_
|
 Posted: Fri Jan 09, 2015 13:44 Post subject: |
 |
|
| helb wrote: | | ...недавно слепил скрипт и повесил на Shift+F7. Создает каталог и перемещает выделенное в него... |
Спасибо, повесил на кнопку, буду пользоваться. Но, поскольку функционал для меня избыточный, то позволил себе поковыряться в коде. Да простит меня helb. Мне чаще нужно просто создать папку с именем даты в формате yyyy-mm-dd. Нужное мне получилось. Опыт в скриптописании у меня маленький (очень) и устаревший. Поэтому не сомневаюсь, что можно сделать проще и, главное, правильнее. Подскажите, кто может, как поправить? | Code: | '=====================================================================================
' Использован код программы из http://forum.wincmd.ru/viewtopic.php?t=15544&highlight=yyyy (автор helb).
' В активной панели TC создает новую папку, в имени которой только цифры текущей даты.
' Creates new dir named with current date.
' Parameters: %WL "%T" %P%N (list, target panel, suggested name+default parent dir (in case of mixed location mode))
' 09.01.2015
'=====================================================================================
if WScript.Arguments.Count < 3 then
MsgBox "Not enough parameters", vbOKOnly + vbError, "Warning!"
Wscript.Quit
end if
dim list, FSO, fObj, newDir
set FSO = CreateObject("Scripting.FileSystemObject")
newDir = getDateTime(Now)
if not FSO.FolderExists(newDir) then
FSO.CreateFolder(newDir)
end if
function getDateTime(dt)
s = datepart("yyyy",dt)
s = s & "-" & RIGHT("0" & datepart("m",dt),2)
s = s & "-" & RIGHT("0" & datepart("d",dt),2)
getDateTime = s
end function |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
