Страница 2 из 3
Добавлено: Ср сен 07, 2005 21:30
Toni
LocKtaR-o-DarK писал(а):Господа это можно сделать и без скриптов.
И довольно просто.
Для этого создаем новую кнопку
В строке "Команда" пишем
В строке "Параметры" пишем
Код: Выделить всё
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "%%d%%c-%%b-%%a"
Значок на свое усмотрение, конечно же.
Формат отображения тоже.
Удачи.
Слушай, здорово! Твой способ понравился мне больше остальных, спасибо!
Теперь есть несколько вопросиков:
1) Как поменять формат даты на "Американский", т.е. YYYY.MM.DD
2) как зделать так, то бы перед датой было еще одно слово, с пробелом. Т.е. что бы в итоге название каталога выглядело так:
"FeedBack 2005.09.01 ???
Заранее - очень благода
Добавлено: Чт сен 08, 2005 10:29
Rulchik
Toni
1) Как поменять формат даты на "Американский", т.е. YYYY.MM.DD
Хм... Оно и так всё, вроде, в "американском"
2) как зделать так, то бы перед датой было еще одно слово, с пробелом. Т.е. что бы в итоге название каталога выглядело так:
"FeedBack 2005.09.01 ???
Код: Выделить всё
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "FeedBack %%d%%c-%%b-%%a"
Добавлено: Чт сен 08, 2005 10:42
Rulchik
Toni
Если нужны точки, то, соответственно, так:
Код: Выделить всё
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "FeedBack %%d%%c.%%b.%%a"
P.S. Мог бы и сам догадаться
.
Добавлено: Чт сен 08, 2005 20:19
LocKtaR-o-DarK
Toni
Спасибо за подсказку с каталогом (текущая дата. Круто!) Твой способ понравился мне больше всех других описаных.
Но, есть пара вопросов:
1) Как изменить формат создаваемой даты на "американский" - т.е. YYYY.MM.DD
2) как перед датой ввести какое-то другое слово, т.е., что бы каталог получался, например, с таким названием: - "FeedBack 2005.09.01"?
Хороший вопрос.
Ну что же, подскажу.
Попросту скопируй это:
Код: Выделить всё
TOTALCMD#BAR#DATA
%comspec% /c
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "FeedBack %%d%%c-%%b-%%a"
shell32.dll,213
Создать каталог, название - текущая дата
-1
и вставь на панель кнопок
Добавлено: Пт сен 09, 2005 16:19
Toni
Ок. Всем огромный Сэнкс!
То Rulchik
P.S. Мог бы и сам догадаться
Да, пожалуй, ты прав. Теперь я вижу, что мог бы и сам!
Добавлено: Пт сен 09, 2005 17:02
Toni
To Rulchik
Ooops! У твоего Варианта обнаружился один, очень существенный (для меня!!!) недостаток - он на ФТП не работает!
Добавлено: Пт сен 09, 2005 18:17
Toni
мне раньше "Batya" (см. начало топика) скриптик Давал, вот этот вот:
WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}"
А, нельзя ли в нем как-то формат даты задать, не зависимо от системных установок винды? На FTP только этот скрипт работает
Добавлено: Пт сен 09, 2005 20:16
Volniy
Toni писал(а):А, нельзя ли в нем как-то формат даты задать, не зависимо от системных установок винды? (
Замени в том скрипте строку
на свой вариант, например
Код: Выделить всё
MyDate = Day(Date) & "." & Month(Date) & "." & Year(Date)
короче тут уже разделены день, год и месяц, и можно их комбинировать как угодно.
Добавлено: Пн сен 12, 2005 11:11
Rulchik
Toni
И не забудь про FeedBack!
Код: Выделить всё
MyDate = "FeedBack " & Year(Date) & "." & Month(Date) & "." & Day(Date)
Добавлено: Пн сен 12, 2005 12:14
Toni
Rulchik писал(а):Toni
И не забудь про FeedBack!
Код: Выделить всё
MyDate = "FeedBack " & Year(Date) & "." & Month(Date) & "." & Day(Date)
Сэнск. Помогло. Правда, формат изначальный не совсем устраивал, нужны были "0" в месяцах и днях (т.е что бы дата выглядела вот так 2005.09.12)
В общем, в итоге решил так (самым премитивным способом!):
if (Month(Date)<10) then mMonth="0" & Month(Date) else mMonth=Month(Date)
if (Day(Date)<10) then mDay="0" & Day(Date) else mDay=Day(Date)
MyDate = Year(Date) & "." & mMonth & "." & mDay
WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & MyDate & "{Enter}"
Если есть варианты по проще добиться того же результата - буду весьма благода, а, то у меня, как-то с этим не очень!!!
Добавлено: Пн сен 12, 2005 17:39
Volniy
Toni писал(а):Если есть варианты по проще добиться того же результата - буду весьма благода, а, то у меня, как-то с этим не очень!!!
Код: Выделить всё
mydate = "FeedBack " & Year(date) & "." & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2)
Добавлено: Вт сен 13, 2005 10:39
Toni
Volniy писал(а):Toni писал(а):Если есть варианты по проще добиться того же результата - буду весьма благода, а, то у меня, как-то с этим не очень!!!
Код: Выделить всё
mydate = "FeedBack " & Year(date) & "." & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2)
О! Круто! Коротко и понятно!
Большой, большой СЭНКС!!! Все работает!!!
Добавлено: Вт сен 20, 2005 13:44
S.F.W.
[off]
LocKtaR-o-DarK Batya Rulchik
Пацаны вы действительно асы , гранд респект.
[/off]
Добавлено: Вс окт 16, 2005 06:53
mf-zl
Код: Выделить всё
TOTALCMD#BAR#DATA
cmd /c
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "%%d%%a.%%b.%%c"
shell32.dll,3
DateFolder
1
-1
Добавлено: Вс окт 16, 2005 17:17
Volniy
mf-zl писал(а):скопуруйте код и на панели управления нажмите вставить
А нельзя быть чуть более внимательным? Этот вариант уже рассматривался и он
не работает c FTP.