ファイルやフォルダをドラッグ＆ドロップしてテキストボックスにパスを入力する

フォームにテキストボックスを配置する。

Public Class Form1
    Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
        'データ形式の確認
        If Not e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Return
        End If

        '複数パスをドラッグしているか確認
        If DirectCast(e.Data.GetData(DataFormats.FileDrop), String()).Length <> 1 Then
            Return
        End If

        'ドロップ可能な場合は、エフェクトを変える
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop
        'ドラッグしているパスの取得
        TextBox1.Text = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())(0)
    End Sub
End Class