vb中如何遍历文件夹

Question

用文件系统对象，先创建该对象的文件夹对象，
Option Explicit
Dim ofso As FileSystemObject
Dim fo As Folder
Dim f As File
Dim InFo As FolderSet ofso = New FileSystemObject
Set fo = ofso.GetFolder("asdfal;sdfj")
For Each f In fo.Files
    List1.AddItem f.Name
Next
For Each InFo In fo.SubFolders
    List1.AddItem fo.Name
Next然后再作回归调用就可

Answer 1

Public Sub FindFile(Fd As Folder)
  Dim sFd As Folder, Fn As File
  For Each Fn In Fd.Files    '查找当前目录所有文件   Next  For Each sFd In Fd.SubFolders    '循环查找所有子目录
      FindFile sFd  '递归调用
  Next
End Sub

Answer 2

For Each Fn In Fd.Files    '查找当前目录所有文件
  '在这里可以处理目录中的文件
  'Fn.Name   '得到文件名
  'Fn.Size   '得到文件大小
  'Fn.Path   '得到文件路径
  'Fn.Type   '得到文件类型
  'Fn.DateLastModified   '得到文件最后的修改日期
Next