9.ファイルのドラッグアンドドロップを受け入れる
1.リストボックスにドロップしたファイル名を表示する例
あらかじめList1のOLEDropModeプロパティを 1 - 手動 にしておく。
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim K As Long
If Data.GetFormat(vbCFFiles) Then
For K = 1 To Data.Files.Count
List1.AddItem Data.Files(K)
Next K
End If
End Sub