Q: При сохранении Web страниц IE, как известно, создает директорию, куда пишет ассоциированные с данным HTML-файлом объекты (обычно такая директория называется [имя файла]_files). Так вот, при перетаскивании мышкой таких сохраненных HTML-страниц, эти директории не копируются/не перемещаются вместе с ними как в Explorer.
Есть ли какой-нибудь способ заставить их драг-энд-дропиться автоматически вместе с HTML-файлом? По Ctrl+C/Ctrl+V работает как нужно, но часто удобнее мышкой! Выделять каждый раз соответствующие каталоги перед перетаскиванием тоже громоздко. Может быть, какие-то настройки или скрипт?
%P %N %T %O Свалял на скорую руку, но вроде работает. Вешаешь батник на кнопку, ставишь курсор на ФАЙЛ и жмешь кнопку. Вся эта дребедень будет скопирована в ПРОТИВОПОЛОЖНУЮ панель.
Вахмурка
A: Можно включить копирование Проводником (Настройки -> Операции с файлами -> Выполнять копирование/вставку Проводником (при проблемах)), но тогда будут недоступны определённые фичи, типа копирования комментариев descript.ion и режима копирования больших файлов.
Константин Власов
A: Скриптна VBS:
'========================================================================== ' Копирование выделенных файлов с соответствующими им (для *.html) папками ' ' Параметры вызова из TC: ' %L "%T" '==========================================================================
Dim FSO, Fld, OTF, Rln Set FSO = CreateObject("Scripting.FileSystemObject") Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not OTF.AtEndOfStream Rln = OTF.ReadLine If FSO.FileExists(Rln) Then FSO.CopyFile Rln, WScript.Arguments(1) Fld = FSO.GetBaseName(Rln) & "_files" If FSO.FolderExists(Fld) Then FSO.CopyFolder Fld, WScript.Arguments(1) End If ElseIf FSO.FolderExists(Rln) Then FSO.CopyFolder Rln, WScript.Arguments(1) End If Loop
