本文提供了一个使用VB.NET进行目录操作的简单示例，包括如何读取指定目录下的所有子目录及文件路径。通过两个按钮事件分别展示了获取D盘下所有子目录和C盘Windows目录下所有文件的方法。
Imports System.IO
Public Class Form1
Private Sub 显示所有子目录_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示所有子目录.Click
Dim dirs() As String = Directory.GetDirectories("d:\")
For i = 0 To dirs.Length - 1
Debug.Print(dirs(i))
Next
End Sub
Private Sub 显示目录中的文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示目录中的文件.Click
Dim files() As String = Directory.GetFiles("c:\windows")
Dim i As Integer
For i = 0 To files.Length - 1
Debug.Print(files(i))
Next
End Sub
End Class
Public Class Form1
Private Sub 显示所有子目录_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示所有子目录.Click
Dim dirs() As String = Directory.GetDirectories("d:\")
For i = 0 To dirs.Length - 1
Debug.Print(dirs(i))
Next
End Sub
Private Sub 显示目录中的文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 显示目录中的文件.Click
Dim files() As String = Directory.GetFiles("c:\windows")
Dim i As Integer
For i = 0 To files.Length - 1
Debug.Print(files(i))
Next
End Sub
End Class
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
