Страница 1 из 1

Загрузка эскизов

Добавлено: Ср янв 01, 2014 02:57
Maxtor
Вопрос следующего содержания. В каталоге с фотографиями включен режим эскизов. Если одну из фотографий удалить/переместить, то эскизы оставшихся фотографий начнут заново загружаться (или обновляться, не знаю точно). Возможно ли от этого как-то избавиться? Если фотографий много, повторная загрузка отнимает довольно много времени.

Добавлено: Ср янв 01, 2014 10:45
Avada
Maxtor
При удалении/перемещении файла происходит банальное обновление содержимого панели TC (переформирование списка), которое не выполняться не может. Включая и перечитывание эскизов. Для уже существующих — из кэша, если здесь настройки не меняли. А поотключать можно, конечно, всё — и кэширование, и опции загрузки. Но тогда и эскизов никаких вообще не будет.

Добавлено: Ср янв 01, 2014 16:52
Flasher
Давно мной замечено: если так по одному элементу удалять/перемещать, то содержимое панели при отключённом автообновлении не будет обновляться:

Код: Выделить всё

' Удалить папку/файл под курсором
' Параметр: %V
F = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
  If .FolderExists(F) Then .DeleteFolder F Else .DeleteFile F
End With

Код: Выделить всё

' Переместить папку/файл под курсором в другую панель
' Параметры: %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