有一个文件夹，里面有若干文件，需要用ASP统计出符合要求的文件有多少个。
统计要求：文件名和关键词匹配，文件修改日期在指定日期之前。
按照要求，我编写了一个asp函数，可以统计出文件夹下文件名匹配和修改日期不晚于指定日期的文件个数。下面是函数代码：
Function CountFileNew(ByVal dPath, PatternString, latestDay)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(dPath)
Set oFiles = oFolder.Files
set re = New RegExp
re.Pattern = PatternString
CountFileNew = 0
For Each oFile In oFiles
On Error Resume Next
if re.test(oFile.name) and _
oFile.DateLastModified <= latestDay Then
CountFileNew = CountFileNew + 1
End if
Next
End Function
dPath表示文件夹路径；PatternString表示关键词；latestDay表示指定日期。
该函数返回的是符合要求的文件个数。
当然你可以在该函数的基础上修改成符合自己需求的条件，比如：
将在指定日期之前修改成指定日期之后，只需将oFile.DateLastModified <= latestDay修改成oFile.DateLastModified >= latestDay即可。
也可以修改成既返回符合要求的文件个数，也输出符合要求的文件详细信息。
声明:如需转载，请注明来源于www.webym.net并保留原文链接：http://www.webym.net/jiaocheng/513.html
