ドラッグ＆ドロップでファイル名を取得したい。

Question

【背景】
vbaを使用して「ドラッグ＆ドロップでファイル名を取得し、リストボックスに出力する」プログラムを
作成したいと考えています。
※画像イメージの「画像ファイルリスト」のリストボックスにファイルドラッグ＆ドロップすると、ドラッグ＆ドロップしたファイルのファイル名が追加されていくイメージです。

現在、以下サイトを参考にドラッグ＆ドロップでファイルパス+ファイル名を取得するところまでは作成できましたが、「ファイル名のみ取得し、リストボックスに出力する」ところで詰まってしまいました。

【質問】
ドラッグ＆ドロップをするボックスとリストボックスを被らせたいんですが、被らせるとドラッグ＆ドロップの機能が使えなくなってしまったため、どのように実装したらよいか教えていただきたいです。

【参考URL】
http://tecinfo.yuzumaru.co.jp/vba-%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%83%9E%E3%82%AF%E3%83%AD/vba-%E3%83%89%E3%83%A9%E3%83%83%E3%82%B0-%E3%82%A2%E3%83%B3%E3%83%89-%E3%83%89%E3%83%AD%E3%83%83%E3%83%97%E3%81%A7%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%95%E3%81%9B/vba-%E3%83%89%E3%83%A9%E3%83%83%E3%82%B0-%E3%82%A2%E3%83%B3%E3%83%89-%E3%83%89%E3%83%AD%E3%83%83%E3%83%97%E3%81%A7%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%95%E3%81%9B.html

Answer 1

リストボックスにドラッグイベントを登録してそこからファイル名を取ればいいんでは。

そこの説明の、ListViewをListBoxに読み替えてみればどうでしょう

Comments

[merci_children]

ご回答ありがとうございます。
ご指摘の通り、リストボックスにドラッグイベントを登録できればよいのですが、
リストボックスにドラッグイベントを登録する方法がわかりません。
未熟者のため申し訳ないですが、教えていただけると嬉しいです。

現在【参考URL】を参考にして、以下のようなソースを書いています。

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

Dim LineText As String
Dim AllText As String
Dim i

If Data.Files.Count > 0 Then
For i = 1 To Data.Files.Count
AllText = AllText & Data.Files(i) & vbNewLine
Next i
UserForm1.ListBox1.AddItem AllText ' -テキストエリアへファイル名の一覧を書きだす
End If

End Sub

[merci_children]

以下URLを参考にしたらいけました。ご回答ありがとうございます。

（URL）
http://officetanaka.net/excel/vba/listview/05.htm