آموزش کامل کار با فایل ها و فولدرها در VB.NET

[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

 

خیلی ممنونم که جواب دادید این جواب شما تا 99 درصد کار کرد ولی وقتی داخل یه پوشه پوشه هایی دیگری باشه کار نمیکنه(البته فایل های پوشه اول ثبت میشه ولی بقیه نه) ممنون میشم راهنمایی کنید

[xxnagin]

اگه شما در قسمت dir.GetFiles() را دیده باشید دو تا خاصیت دیگه هم داره
که یکی برای پسوندها هستش ودیگری برای هم پسوند , و هم SearchOption
که دومی همونی هستش که میخواین که در پسوندها , پسوندی که میخواهید رو که میخواید رو براتون فیلتر میکنه
برای همه فایلها از *.* استفاده کنید و SearchOption هم برای وقتی داخل یه پوشه پوشه هایی دیگری باشه از AllDirectories و خود پوشه TopDirectoryOnly استفاده میشه

 

    For Each f As IO.FileInfo In dir.GetFiles("*.*", IO.SearchOption.AllDirectories)

 ListBox1.Items.Add(f.FullName)

 Next