It took some time but i solved it my self :-)
Add a listview to your form and add the code :
Imports System.IO
Imports System.Net
Public Class Form1
Dim FileExt, FileName, FilePath As String
Dim i As Integer
'Form Load
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileList.View = System.Windows.Forms.View.Details
FileList.Columns.Add("FileName", 350, HorizontalAlignment.Left)
FileList.Columns.Add("EXT", 60, HorizontalAlignment.Center)
FileList.Columns.Add("FilePath", 350, HorizontalAlignment.Left)
End Sub
'FileListview - Drag And Drop Enter
Private Sub FileList_DragEnter(sender As Object, e As DragEventArgs) Handles
FileList.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
End If
End Sub
'FileListView Drag And Drop Folder
Private Sub FileList_DragDrop(sender As Object, e As DragEventArgs) Handles
FileList.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
' Assign the files to an array.
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
'FOLDER DROP
For i = 0 To MyFiles.Length - 1
'For Each foundFile As String In My.Computer.FileSystem.GetFiles(MyFiles(i),
FileIO.SearchOption.SearchTopLevelOnly, "*.*") 'WITHOUT SUBFOLDERS
For Each foundFile As String In My.Computer.FileSystem.GetFiles(MyFiles(i),
FileIO.SearchOption.SearchAllSubDirectories, "*.*") 'WITH SUBFOLDERS
FilePath = Path.GetDirectoryName(foundFile)
FileName = Path.GetFileNameWithoutExtension(foundFile)
FileExt = My.Computer.FileSystem.GetFileInfo(foundFile).Extension
FileList.Items.Add(FileName)
For Each File As ListViewItem In FileList.Items
File.SubItems.Add(FileExt)
File.SubItems.Add(FilePath)
Next
Next
Next
End If
FileList.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
End Sub
End Class
How to: Get the Collection of Files in a Directory - Visual Basic | Microsoft Docs[
^]