ドラック&ドロップされたファイルパスを取得したい

サンプルプログラム

ドラック&ドロップされたファイルの絶対パスを取得する方法です。
※コントロールのAllowDropプロパティをTrueに設定しておく必要があります。

'フォーム内にファイルがドラックされた時に発生するイベント Private Sub Form1_DragEnter(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter 'ドラックされてきたものがファイルならドロップ効果をCopyにする If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy Else 'ファイル以外は受け付けない e.Effect = DragDropEffects.None End If End Sub 'フォーム内にファイルがドロップされた時に発生するイベント Private Sub Form1_DragDrop(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop 'ドロップされたファイルの絶対パスをすべて配列に格納する Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop, False), String()) 'ラベルに表示 Label1.Text = String.Empty For Each path In filePaths Label1.Text += path + vbCrLf Next End Sub