Dim ls, ld, l
Private Sub Form_Load()
Set ls = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Command1_Click()
'''''''''''''开始查找"E:\"
ListFolder "E:\"
End Sub
''''''''''''''''以下是递规查找
Private Sub ListFolder(ByVal m_strFolder As String)
Set ld = ls.GetFolder(m_strFolder)
StatFolder ld
For Each sld In ld.subFolders
Debug.Print "文件夹:" & sld
ListFolder sld
Next
End Sub
Private Sub StatFolder(ByVal m_strFolder As String)
Dim strTemp As String
If m_strFolder <> "" And Right(m_strFolder, 1) <> "\" Then
m_strFolder = m_strFolder & "\"
End If
Set ld = ls.GetFolder(m_strFolder)
For Each l In ld.Files
Debug.Print "文件:" & l
Next
End Sub
vb递归遍历目录,文件
最新推荐文章于 2021-07-03 16:58:11 发布