کشیدن و رها کردن داخل listview

[xxnagin]

سلام
من میخوام تعدادی فایل را از داخل هارد درون listview بندازم
من با این کد تا حدودی تونستم کاری کنم
ولی مشکل من اینه که فقط فقط فایلهای انتخابی از یک پوشه درون لیست قرار بگیرن نه کل فایلهای داخل پوشه



Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ListView1
.AllowDrop = True
.Columns.Add("Name", 200, HorizontalAlignment.Left)
.Columns.Add("Time", 60, HorizontalAlignment.Left)
.Columns.Add("Full Name", 300, HorizontalAlignment.Left)
End With
End Sub
Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
Try
Dim s As New IO.FileInfo(CType(e.Data.GetData(DataFormats.FileD rop), Array).GetValue(0).ToString)
For Each s In s.Directory.GetFiles()
Dim item As New ListViewItem
item.Text = s.Name
item.SubItems.Add(s.Extension)
item.SubItems.Add(s.FullName)
ListView1.Items.Add(item)
Next
Catch ex As Exception
MessageBox.Show("Error Doing Drag/Drop")
End Try
End Sub
Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim item As New ListViewItem
If ListView1.SelectedItems.Count > 0 Then
item = ListView1.SelectedItems(0)
TextBox1.Text = item.SubItems(2).Text
End If
End Sub


End Class

[vbworm]

Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
With ListView1
.AllowDrop = True
.Columns.Add("Name", 200, HorizontalAlignment.Left)
.Columns.Add("Time", 60, HorizontalAlignment.Left)
.Columns.Add("Full Name", 300, HorizontalAlignment.Left)
End With
End Sub
Private Sub ListView1_DragDrop(ByVal sender AsObject, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim MyFiles() As String
Dim i As Integer
MyFiles = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To MyFiles.Length - 1
Dim S As New IO.FileInfo(MyFiles(i))
Dim item As New ListViewItem
item.Text = S.Name
item.SubItems.Add(S.Extension)
item.SubItems.Add(S.FullName)
ListView1.Items.Add(item)
Next
End If
End Sub
Private Sub ListView1_DragEnter(ByVal sender AsObject, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
End If
End Sub