#post-id: 4324-07-51
#original-date: 28.05.2012 Mon
#original-time: 7:51 AM
#original-day:  4324
#original-host: WinXP Home SP3 (Build 2600)

Век живи... Короче, утро просидела над простенькой программой, 
которая переименовывает кучу папок. Папки содержат сеты картинок 
с одного сайта. названы они абы как, а хотелось чтобы они были 
названы как и на сайте.

В помощь мне - Descript.ion, в ктором URL каждой картинки.

Всё просто. Получаем список папок. Хватаем первую же картинку 
в каждой папке, извлекаем описание файла - URL, регулярным 
выражением вытаскиваем уникальный индекс. Тоесть, было что-то вроде 
"lindachan.net/gallery/12345/byaka/01.jpg", а стало - "12345". 
Ну а потом - элементарный MoveFile() на самой папке.

Не работает. MoveFile() возвращает ошибку, что де занята папка. 
И так для всей сотни. Странно!

Всё делается стандартными средствами VB, только описание получается 
собственным классом - вдруг там ошибка? Немного поплясала с бубном - 
не оно. Потом ещё поплясала и нашла.

Оказывается, что этот самый любой файл получался при помощи функции 
Dir(), передавая ей маску "??.jpg". После её вызова манипулятор 
каталога, в котором находился файл, не закрывался, и MoveFile() 
не могла сработать.

Пришлось поиндусить. Сразу после получения этого файла, вписала это:

> Dir App.Path

Заработало.