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

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

с переименованием разобрался. в переменной 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


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

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

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