for each 循环分页问题

[runzhang]

一个FOR EACH循环读出目录内所有文件，现在要显示文件名，要分页,请问，怎么分?

多谢。
代码如下。

For Each thing in MyFolder.Files
str=thing
str=trim(right(str,17))
str="photos/"&str
showpic(str)
next

[hookee]

<%
page = 1       ' 设置第几页
pageSize = 20  ' 每页记录数

Set fc = MyFolder.Files
total = fc.Count

start = (page-1) * pageSize + 1
last = start + pageSize
i=0

For Each thing In fc
    i = i+1
    If i >= start And i < last And i <= total Then
        str=thing 
        str=trim(right(str,17)) 
        str="photos/" & str
        showpic(str) 
    End If
    If i>=total Then Exit For
Next

%>

[Dogfish]

如果文件多会很慢的。可以的话，放在数据库还是好一点的。