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

[xwylpsy]

用vb.net怎样实现在遍历某一文件夹下的所有文件（包括文件和文件夹）？？

[kkun_3yue3]

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

[CloneCenter]

IO.Directory.GetFiles
http://msdn.microsoft.com/zh-cn/library/07wt70x2(VS.80).aspx

IO.Directory.GetDirectories
http://msdn.microsoft.com/zh-cn/library/c1sez4sc(VS.80).aspx

[xwylpsy]

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

[CloneCenter]

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

[xwylpsy]

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

[SYSSZ]

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

[xwylpsy]

谢谢！问题解决了！