سلام
نوشته شده توسط
abbasrahmati
سلام من یه سوال دارم اگه ما روی یه فرم یه لیست باکس داشته باشیم که خاصیت دراگ دراپ داشته باشه و وقتی فایلی رو روی اون میندازیم ادرس فایل رو بصورت کامل در لیست باکس ثبت میکنه .
مشکل من اینه که وقتی فولدری رو میندازم مسیر فولدر رو ثبت میکنه در حالی که من میخوام فایلهی داخل این فولدر که مثلا موزیک هست ثبت کنه باید چه کنم ؟
ممنونم
شما باید از directoryinfo استفاده بکنید
Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
Dim data As String() = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
For i = 0 To data.Count - 1
Dim dir As New IO.DirectoryInfo(data(i))
For Each f As IO.FileInfo In dir.GetFiles()
ListBox1.Items.Add(f.FullName)
Next
Next
End Sub
Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
پاسخ با نقل قول
