用vb.net怎样实现在遍历某一文件夹下的所有文件?

时间:2021-12-24 11:22:10
用vb.net怎样实现在遍历某一文件夹下的所有文件(包括文件和文件夹)??

7 个解决方案

#1


开始->运行->输入
tree /f /a C:\目录名称 >文件树sql.txt

#3


不行呀!急急!!!各位帮帮忙

#4


不行?怎么不行?自己代码怎么写的?最起码要贴出来,大家才能帮你看。

#5


我是想要用递归的方法把一个文件夹下的所有文件、文件夹都找出来!

#6


Public Class Form1

    Private Sub GetAllFile(ByVal path As String)
        Dim strDir As String() = System.IO.Directory.GetDirectories(path)
        Dim strFile As String() = System.IO.Directory.GetFiles(path)
        Dim i As Integer
        If strDir.Length > 0 Then
            For i = 0 To strDir.Length - 1
                Debug.Print(strDir(i))
            Next
        End If

        If strFile.Length > 0 Then

            For i = 0 To strFile.Length - 1
                Debug.Print(strFile(i))
            Next
        End If
        If strDir.Length > 0 Then
            For i = 0 To strDir.Length - 1

                GetAllFile(strDir(i))
            Next
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetAllFile("e:\PIC")
    End Sub
End Class

#7


谢谢!问题解决了!

#1


开始->运行->输入
tree /f /a C:\目录名称 >文件树sql.txt

#2


#3


不行呀!急急!!!各位帮帮忙

#4


不行?怎么不行?自己代码怎么写的?最起码要贴出来,大家才能帮你看。

#5


我是想要用递归的方法把一个文件夹下的所有文件、文件夹都找出来!

#6


Public Class Form1

    Private Sub GetAllFile(ByVal path As String)
        Dim strDir As String() = System.IO.Directory.GetDirectories(path)
        Dim strFile As String() = System.IO.Directory.GetFiles(path)
        Dim i As Integer
        If strDir.Length > 0 Then
            For i = 0 To strDir.Length - 1
                Debug.Print(strDir(i))
            Next
        End If

        If strFile.Length > 0 Then

            For i = 0 To strFile.Length - 1
                Debug.Print(strFile(i))
            Next
        End If
        If strDir.Length > 0 Then
            For i = 0 To strDir.Length - 1

                GetAllFile(strDir(i))
            Next
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetAllFile("e:\PIC")
    End Sub
End Class

#7


谢谢!问题解决了!