Flasher
|
 Posted: Sat Apr 19, 2014 14:25 Post subject: |
 |
|
В этом скрипте
| Code: | List = .Item(0) : Path = .Item(1) : If C = 3 Then Jump = .Item(2) |
меняем на | Code: | List = .Item(0) : Path = .Item(1) : Folder = .Item(2)
If C = 4 Then Jump = .Item(3) |
и | Code: | 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 & "\" |
на
| Code: | If Folder = "" Then
L = vbNewLine
Folder = InputBox(L&L&L&L&"Введите имя папки, " &_
L & "куда переместится выбранное:",_
" Перемещение элементов в назначенный каталог")
If Trim(Folder) = "" Then Wscript.Quit
End If : Targ = Path & Folder & "\" |
Параметры в итоге такие: %WL "<путь_получателя\>" "<имя папки>" <переход в папку: 1>
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
