Drag'n'Drop

[Константиин]

На форме есть ListBox. Как при перетаскивании из провадника на этот ListBox сделать, чтоб в нем появился путь к перетаскиваемому файлу, а если это папка, то была бы какая-нибудь дополнительная пометка, что это папка???

[Amed]

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

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 1 To Data.Files.Count
    List1.AddItem Data.Files(i)
Next i
End Sub

В свойствах List1 выставь OleDropMode = 1 (Manual).

Тип файла/папки определяется через FSO. Руками.

[tyomitch]

Тип файла/папки определяется через FSO. Руками.

А чего бы не через встроенную GetAttr?

[Amed]

tyomitch, верно, забыл