ドラッグアンドドロップでファイル拡張子のないファイル名を取得する

Question

ボタンにファイルをドラッグアンドドロップし、ファイル名を拡張子なしでテキストボックスに保存したいとします。この問題を解消するのに役立ちます。私はそれらのコードにいくつかのエラーが発生しています。

Private Sub Button5_DragDrop(sender As Object, e As DragEventArgs) 
    _Handles Button5.DragDrop 
    Dim files() As String = e.Data.GetData(DataFormats.FileDrop) 
    Dim file_name As String = Path.GetFileName(files(0)) 
    For Each path In files 
     TextBox1.Text = (path) 
    Next 
    TextBox2.Text = files(0) 
End Sub 

Private Sub Button5_DragEnter(sender As Object, e As DragEventArgs) 
    _Handles Button5.DragEnter 
    If e.Data.GetDataPresent(DataFormats.FileDrop) Then 
     e.Effect = DragDropEffects.Copy 
    End If 
End Sub 

Answer 1

は、私はあなたが 以下のコードをチェックし、真 にAllowDrop機能を設定逃したし、また、拡張子「GetFileNameWithoutExtension」せずにファイル名を取得する機能があると感じ

Imports System.IO 
Public Class Form1 

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
    Button5.AllowDrop = True 
End Sub 

Private Sub Button5_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Button5.DragDrop 
    Dim files() As String = e.Data.GetData(DataFormats.FileDrop) 
    For Each indpath In files 
     TextBox1.Text = Path.GetFileNameWithoutExtension(indpath) & vbNewLine & TextBox1.Text 
    Next 
End Sub 

Private Sub Button5_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Button5.DragEnter 
    If e.Data.GetDataPresent(DataFormats.FileDrop) Then 
     e.Effect = DragDropEffects.Copy 
    End If 
End Sub 
End Class