здравствуйте!
по работе приходится сканировать документы (.tiff, .pdf), сканер их сохраняет в своем формате (дата+время) и эти документы приходиться каждый раз переименовывать. настройки сканера менять нельзя, какие - нибудь программные ср-ва кроме экселя испльзовать тоже нельз. хотелось сделать так: открываешь папку где лежат файлы, делаешь вид "эскиз страниц" и ориентируясь по содержимому (копия заявления или паспорта) перетаскиваешь этот файл в определенное место (например ячейка а1 - паспорт, а2 - заявление) рабочего листа или формы и файл меняет имя.
вопрос такой: можно ли это сделать? и если да, то как?
спасибо!

Shocker.Pro,
спасибо!
буду думать и искать...

скукотища,
о, спасибо большое!
немного не так хотелось. но благодаря вам появилис другие мысли

Ципихович Эндрю,
так интересует решение задачи целиком, а именно, 4 пункт. Правда на сколько я понимаю перетаскиванием дело не решить.

Shocker.Pro,
придется каким-то таким способом. просто думал воспльзоваться драг-н-дропом. было бы изящно.

Ципихович ЭндрюСергейР1981, у ж коли биться так всё програмно, ОК?
Хотел спросить файл переименовываем, ОК, а путь его менять можно? как?

если все программно, это будет СУПЕР!
хотелось что бы файлы оставались в той же папке.

Ципихович Эндрю,
там можно вид переключить и будет превью. все-таки то вариант не подошел. пока проще вручную переименовывать

СергейР1981Ципихович Эндрю,
там можно вид переключить и будет превью. все-таки то вариант не подошел. пока проще вручную переименовывать
это сообщение ответ к этому
" так что Вы разобрались?
Ведь самоделка Выбери себе не открывается как вид "эскиз страниц"
Вот это, то меня и интерисует"

Ципихович Эндрюпрошу помощи ошибка 450
Или бесполезно, низя это сделать??
гуглю

как то я рано обрадовался... посмотрел код, изучая можно второе высшее получить... со своми знаниями мне там ничего не поправить. пока поразбираюсь

так и сделаю. чувствую (точнее это очевидно) с наскока с этим не разобраться.
спасибо за ваш труд!!! полезня программа, которая будет использоваться
составление договоров своими силами автоматизировать удалось, переименовывание файлов с вашей помощью со дня на день тоже. прощай мартышкин труд!!!

с переименованием разобрался. в переменной sFileName содержиться весь путь к файлу вместе его именем. я так понимаю нужно с конца отрезать все символы до /, а потом прибавить нужное имя. или есть более простой вариант?
появились вопросы:
как на одной форме сделать несколько листбоксов (в зависимости в какой листбокс файл бросаешь, такое и будет имя файла) и чтобы на всех них можно было перетаскивать файл.стал делать, вроде получилось, но во-первых когда файл подносишь к одному листбокусу курсор имеет одно изображение (как при обычном перетаскивании), а когда подтаскиваешь к другому, курсор меняется. картинки меня не пугают, но вдруг что -то еще не так происходит. мне кажеться, что я второй листбокс не правильно прикручиваю.
для того чтобы разместить второй листбокс я дублировал некоторе переменные и видимо из-за этого произошла такая штука с курсором.
уже есть другая задумка - сменить листбокс на фрэйм на него разместить надписи, к какой надписи подтянешь картинку, так файл и назовется (т.е в зависимости от координат курсора давать имя файлу.).

пока сделаю второй вариант. он проще.. кажеться. уже сделал чтоб на фрэм можно было перетаскивать и он это понимал, с координатами курсора разобрался, сейчас попробую надписи добавить и проверю будет ли работать.


подскажите пож-та как разместить несколько объектов на которые можно перетаскивать файлы. несколько фрэймов или листбоксов нагляднее.
писал в несколько приемов, разбираясь с кодом, поэтому немного сбивчиво...

rivate Sub UserForm_Initialize()
Dim Ctl As MSForms.Control
Dim Ctl1 As MSForms.Control
Set Ctl = LB_Files
Set Ctl1 = ListBox1
' Set Ctl = Frame1
'Set Ctl = TextBox1
Set dt = New DropTarget
Set dt1 = New DropTarget
dt.hWnd = Ctl.[_GethWnd]
dt1.hWnd = Ctl1.[_GethWnd]
End Sub


точнее не дублировал, а создавал еще одни, такого же типа

с координатами курсора тоже фигня. либо окно этой программы нужно делать неперемещаемое, либо нужно как то выщитывать координаты фрейма, учитывая, что разрешение может меняться....

Бенедикт,
Спасибо!
теперь получился очень понятный код (даже для меня) и более функциональный. Пока нет возможности проверить, но я так понимаю он уже позволяет переименовывать файлы. Мой алгоритм этого действия был несколько длиннее )). По поводу проверки расширения, тоже очень полезно (я даже не думал об этом), ведь если программой будут пользоваться другие могут много всего попереименовывать, да и сам бы по невнимательности...
Теперь поставленная задача решена!!!
Надписи понавставлю и, пожалуй, пора уже ее использовать.
Еще раз спасибо!!!