Directory.GetFiles 方法
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