Имя файла при при меремещениие на объект

[dasker]

Подскажите плиз, как узнать имя файла, которое перемещают из explorer в окно твоей программмы

заранее спасибо

[Kostyan]

Ставишь у объекта св-во OLEDropMode = 1 - Manual, затем в его событии OLEDragDrop пишешь след. код (я делал всё прям на форме):

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

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Print Data.Files.Item(1)
End Sub


Если пользователь перетащил сразу несколько файлов, перебирай все в цикле:

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

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To Data.Files.Count
  Print Data.Files.Item(i)
Next
End Sub


[Vi]

Дополнительно нужно проверить, что такой формат есть

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

If Data.GetFormat(vbCFFiles) Then
  For i = 1 To Data.Files.Count
    Debug.Print Data.Files.Item(i)
  Next
Else
  Debug.Print Data.GetFormat(vbCFText) ' Или другой
End If