VB 드랍드롭을 이용해 리스트박스에 파일명출력하기!

리스트박스 하나 생성하시고

속성에서 OLEDropMode 를 수동으로 설정해주세요!

Option Explicit

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

        If Dir(Data.Files(i)) <> "" Then
            List1.AddItem Dir(Data.Files(i))
        End If
       
    Next
   
End Sub ' 소스적으세용~