如题，包括其子文件夹内的文件。谢谢

怎么获取文件的个数呀

俺不会哟，谁会帮帮忙

哥们儿有意思！
实在不会，老师也会告诉你怎么做的哟

我可没有说你没帮我！你想多了

能统计数，但不是总数，只是每个文件夹内的文件数。怎样解决？
<%

    Server.ScriptTimeout=200
   
    Dim fso
    Set fso=Server.CreateObject("Scripting.FileSystemObject")
   
    Dim Folder,A_File
    Set Folder=fso.GetFolder(Server.MapPath("/bbs/"))
    Response.Write Folder.Path
   
    ReplaceFolder(Folder)
   
    Sub ReplaceFolder(Folder)
        Dim SubFolder
        For Each SubFolder In Folder.SubFolders
            ReplaceFolder(SubFolder)
        Next
        Dim SubFile,i
        i=0        
        For Each SubFile In Folder.Files
            ReplaceFile(SubFile.Path)
        i=i+1      
        Next
        Response.Write i & "<br />"
    End Sub
   
    Sub ReplaceFile(FileName)
    Response.Write FileName & "<br />"
    End Sub
   
   
%>

[[it] 本帖最后由 thbwn 于 2008-8-5 16:19 编辑 [/it]]

实在不会罗

你要是不想讲，就可以不回嘛

你是高手，不能意味着别人跟你一样强，都强还问什么

我是想学，有时候一个小技巧，都从头学，费时！我也不想当程序设计员，只想自己用到这个了，需要解决！

[[it] 本帖最后由 thbwn 于 2008-8-5 19:43 编辑 [/it]]