Example 037 Get the files and subfolders in the specified folder

Directory.GetFiles method

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 ("The subfolders under the specified folder are:")
        For iCount = 0 To theSubDirectories.GetLength (0)-1
            Console.WriteLine (theSubDirectories (iCount))
        Next

    End Sub
End Module