MSTOP(陈建华(东莞立晨企业资讯服务有限公司))请进！！！！

Question

上次问了一个读取文件夹下，所有的文件的问题，您给出了一段程序，但是只能浏览所有的文件夹啊，要访问每个文件怎么弄啊？由于我对文件的操作不是很熟悉，请赐教，谢谢了。

Answer 1

一个TEXBBOX:NAME="Text1",TEXT="*.*"
一个LISTBOX:NAME="List1"
一个CommandBUTTON:NAME="Command1"引用Microsoft Scripting Runtime.'-------------------------------------------
Private Sub Command1_Click()
    Dim fs As New FileSystemObject  ' 建立 FileSystemObject
    Dim fd As Folder    ' 定义 Folder 对象
    Dim sfd As Folder    Set fd = fs.GetFolder("c:\")
    Command1.Enabled = False
    Screen.MousePointer = vbHourglass
     
    If Len(Text1) = 0 Then Text1 = "*.*"
    FindFile fd, Text1.Text
    
     Command1.Enabled = True
     Screen.MousePointer = vbDefault
End SubSub FindFile(fd As Folder, FileName As String)
    Dim sfd As Folder, f As File
    ' Part I查找该文件夹的所有文件
    For Each f In fd.Files
         '如果你要显示所有文件,可以注释该项.
        If UCase(f.Name) Like UCase(FileName) Then
            Debug.Print f.Path
            List1.AddItem f.Path
        End If
        DoEvents
    Next    ' Part II循环查找所有子文件夹
    For Each sfd In fd.SubFolders
        FindFile sfd, FileName  ' 循环查找
    Next
End Sub