Flasher
|
 Posted: Sat Feb 08, 2014 23:58 Post subject: |
 |
|
Проблемы с кабелем были..
Хотел было спросить, зачем было повторять одно и то же, коли я один конкретный вопрос задал, пока не наткнулся на это:
| Cobblestone-TLT wrote: | | чтобы выдавался стандартный запрос на перезапись (в котором уже можно выбрать: пропустить всё, перезаписать всё, перезаписать более новыми, переименовать оригинал и т.п.)! |
Это никакой не стандартный запрос. Сперва написано было только про перезапись. Если не брать рисование окон на HTA/WSO, то стандартно можно выдать максимум 3 кнопки (Стоп/Повтор/Пропустить или Да/Нет/Отмена). Раз речь идёт обо всех элементах, то зачем вообще нужен запрос? Можно же взять параметры и кнопочную панель в виде меню со всеми вариантами и выбором нужного.
Пока на пробу такой вариант с системным диалогом:
| Code: | '==============================================================
' Перемещать выбранные элементы в каталог с именем текущей даты
' Условие: путь запуска - пустой
' Параметры: %WL "<путь_получателя\>" <переход в папку: 1>
' Пример: %WL "%T" 1
'==============================================================
With WScript.Arguments
C = .Count : If C = 0 Then WScript.Quit
List = .Item(0) : Path = .Item(1) : If C = 3 Then Jump = .Item(2)
End With : If Right(Path, 1) <> "\" Then Path = Path & "\"
M = Month(Date) : If Len(M) = 1 Then M = "0" & M
D = Day(Date) : If Len(D) = 1 Then D = "0" & D
Targ = Path & Year(Date) & "." & M & "." & D & "\"
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(Targ) Then .CreateFolder(Targ)
Set FD = CreateObject("Shell.Application").NameSpace(Targ)
Set TF = .GetFile(List).OpenAsTextStream(1, -1)
Do While Not TF.AtEndOfStream
FD.MoveHere TF.ReadLine
Loop : TF.Close
End With
If Jump = 1 Then
With CreateObject("WScript.Shell")
If Path = .CurrentDirectory & "\" Then P = "L" Else P = "R"
.Run """%COMMANDER_EXE%"" /O /S /" & P & "=""" & Targ & """", 0, True
If P = "R" Then .SendKeys "{TAB}"
End With
End If |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sun Feb 09, 2014 13:01; edited 4 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
