Q: Есть такой вопрос: - мне часто приходиться создавать каталоги, именем которых должна быть просто текущая дата. Никто не подскажет, можно ли как-то этот процесс автоматизировать при помощи Тотала? A: Создай файл *.vbs, повесь его на кнопку или в меню "Запуск" и в параметрах кнопки укажи %P. '===================================================================== ' Создание папки с именем по системной дате
' В параметрах вызова из TC должно быть прописано: ' %P '=====================================================================
Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject")
Dim MyPath, MyDate, NewFold, M1 MyPath = WScript.Arguments(0) MyDate = Date NewFold = MyPath & MyDate If Not FSO.FolderExists(NewFold) Then FSO.CreateFolder(NewFold) M1 = MsgBox("Создана папка:" & chr(13) & NewFold, vbOKOnly + vbInformation, "Результат") Else M1 = MsgBox("Папка" & chr(13) & NewFold & chr(13) & "уже существует", vbOKOnly + vbExclamation,"Внимание!") End If Set FSO = Nothing Wscript.Quit Код работает только на локальных дисках. Код работающий везде, где TC может создавать папки (в т.ч. и на FTP):
WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}"
Для изменения формата даты замени в скрипте строку MyDate = Date на свой вариант, например: MyDate = Day(Date) & "." & Month(Date) & "." & Year(Date) тут уже разделены день, год и месяц, и можно их комбинировать как угодно.
Для добавления "0" к месяцам и датам пишем: mydate = "FeedBack " & Year(date) & "." & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2)
Batya
A: Можно с помощью Helper-а:
Set TCS = CreateObject("TCSCRIPT.Helper") NewFold = Date TCS.SendCommand "cm_SelectAll" All= TCS.GetSrcSelectedFiles For Each a In ALL If StrComp(a, NewFold & "\",1)=0 Then MsgBox "Папка" & chr(13) & NewFold & chr(13) & "уже существует", vbExclamation, "Внимание!" Wscript.Quit End If Next TCS.SendCommand "cm_MkDir",False TCS.SendKeystroke CStr(NewFold) TCS.SendKeystroke "{ENTER}" Set TCS=Nothing Wscript.Quit
Volniy
A: Господа это можно сделать и без скриптов. И довольно просто. Для этого создаем новую кнопку, и в строке "Команда" пишем:
cmd /c В строке "Параметры" пишем
for /f "tokens=1,2,3,4 delims=. " %%a in ('date /t') do md "%%d%%c-%%b-%%a" Значок на свое усмотрение, конечно же. Формат отображения тоже. Параметры правим как больше нравится. Удачи.
LocKtaR-o-DarK
A: Создание каталога с именем вида "дата+время" (кнопка):
