Flasher
|
 Posted: Wed Jan 01, 2014 16:52 Post subject: |
 |
|
Давно мной замечено: если так по одному элементу удалять/перемещать, то содержимое панели при отключённом автообновлении не будет обновляться:
| Code: | ' Удалить папку/файл под курсором
' Параметр: %V
F = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
If .FolderExists(F) Then .DeleteFolder F Else .DeleteFile F
End With |
| Code: | ' Переместить папку/файл под курсором в другую панель
' Параметры: %V "%T"
F = WScript.Arguments(0) : T = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
If .FileExists(F) Then
.MoveFile F, T
ElseIf .GetDriveName(F) = .GetDriveName(T) Then .MoveFolder F, T Else .CopyFolder F, T, True : .DeleteFolder F
End If
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
