Ejemplo 037 Obtenga los archivos y subcarpetas en la carpeta especificada

Método 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

Módulo Módulo1

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

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

        theSubDirectories = IO.Directory.GetDirectories (PathName)
        Console.WriteLine ("Las subcarpetas en la carpeta especificada son:")
        Para iCount = 0 Para theSubDirectories.GetLength (0) -1
            Console.WriteLine (theSubDirectories (iCount))
        Siguiente

    End Sub
End Module