1,066
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim vbFilePath As String = "C:\windows\"
Main(vbFilePath)
End Sub
Module 遍历目录
Sub Main(ByVal vbFilePath As String)
Dim Stack(0) As String, m, i, n, p As Integer, muluming(0) As String, wenjianming(0) As String
Stack(0) = vbFilePath
m = 1
Do While m > 0
Try
If My.Computer.FileSystem.DirectoryExists(Stack(m - 1)) Then
列目录(Stack(m - 1), muluming, n)
列文件(Stack(m - 1), wenjianming, p)
m -= 1
ReDim Preserve Stack(m + n - 1)
For i = 0 To n - 1
Stack(m) = muluming(i)
m += 1
Next
For i = 0 To p - 1
Form1.ComboBox1.Items.Add(wenjianming(i))
Next
End If
Catch ex As Exception
End Try
Loop
End Sub
Private Sub 列目录(ByVal vbFilePath As String, ByRef muluming() As String, ByRef n As Integer)
n = 0
If My.Computer.FileSystem.DirectoryExists(vbFilePath) Then
' My.Computer.FileSystem.GetDirectories(vbFilePath)
Dim i As Integer = 0
ReDim muluming(i)
For Each foundDirectory As String In My.Computer.FileSystem.GetDirectories(vbFilePath)
ReDim Preserve muluming(i)
muluming(i) = foundDirectory
n += 1
i += 1
Next
End If
End Sub
Private Sub 列文件(ByVal vbFilePath As String, ByRef wenjianming() As String, ByRef n As Integer)
n = 0
If My.Computer.FileSystem.DirectoryExists(vbFilePath) Then
Dim i As Integer = 0
ReDim wenjianming(i)
For Each foundfile In My.Computer.FileSystem.GetFiles(vbFilePath, FileIO.SearchOption.SearchTopLevelOnly, "*.*") '获得指定目录下的文件名
ReDim Preserve wenjianming(i)
wenjianming(i) = foundfile
n += 1
i += 1
Next
End If
End Sub
End Module