古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net

[310 デフォルトの名無しさん 2016/09/07(水) 04:03:07.30 ID:5oBV5n5N]

ドラッグ＆ドロップして、パスなしのファイル名だけ取得するにはどうしたらよい？
↓だとフルパスで取得してしまう

Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter

'ドラッグされている内容が文字列型に変換可能な場合
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'コピーを許可するようにドラッグ元に通知する
e.Effect = DragDropEffects.Copy
End If

End Sub

Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop

'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)

End Sub