Копирование каталога HTML-страницы
Материал из TCKB 2.0
Q: При сохранении Web страниц IE, как известно, создает директорию, куда пишет ассоциированные с данным HTML-файлом объекты (обычно такая директория называется [имя файла]_files). Так вот, при перетаскивании мышкой таких сохраненных HTML-страниц, эти директории не копируются/не перемещаются вместе с ними как в Explorer.
Есть ли какой-нибудь способ заставить их драг-энд-дропиться автоматически вместе с HTML-файлом? По Ctrl+C/Ctrl+V работает как нужно, но часто удобнее мышкой! Выделять каждый раз соответствующие каталоги перед перетаскиванием тоже громоздко.
A: Батник:
copy %1%2 %3 md %3%4_files copy %1%4_files\*.* %3%4_files\
Параметры:
%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 Set OTF = Nothing Set FSO = Nothing WScript.Quit
