实例037获取指定文件夹中的文件和子文件夹

Directory.GetFiles 方法

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.directory.getfiles?view=netframework-4.8#System_IO_Directory_GetFiles_System_String_System_String_

Directory.GetDirectories 方法

https://docs.microsoft.com/zh-cn/dotnet/api/system.io.directory.getdirectories?view=netframework-4.8

Module Module1

    Sub Main()
        testCurrentDirectory()
        Console.Read()
    End Sub

    Private Sub testCurrentDirectory()
        Dim PathName As String
        Dim theFiles() As String
        Dim theSubDirectories() As String
        Dim iCount As Integer
        PathName = "c:\"
        theFiles = IO.Directory.GetFiles(PathName)
        Console.WriteLine("指定文件夹" & PathName & "中的文件有：")
        For iCount = 0 To theFiles.GetLength(0) - 1
            Console.WriteLine(theFiles(iCount))
        Next

        theSubDirectories = IO.Directory.GetDirectories(PathName)
        Console.WriteLine("指定文件夹下的子文件夹有：")
        For iCount = 0 To theSubDirectories.GetLength(0) - 1
            Console.WriteLine(theSubDirectories(iCount))
        Next

    End Sub
End Module