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

代码啥意思,给解释一下啊~

我觉得很清楚了呀

如果你了解递归的原理的话，我的程序就是一个深度优先周游所有文件，你只要在周游每个文件的时候给计数器加一就行了，或者干脆周游所有文件夹然后给计数器加上文件夹下文件个数。

看了有点难度

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

    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]]

你看看变量的作用域，再看看应该在哪里定义变量。

讨厌不定义变量的代码，这很不严谨。

实在不会罗

那建议你一步一步学。

搞程序设计居然连递归都不理解，真是让人笑话。还有你，不定义变量是个很不好的习惯。变量的作用域？没听过这个词吧？

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

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