vb递归遍历目录，文件

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