可怜可怜我吧!

用FileSystemObject就可以.
给你一个遍历目录的函数.
Function makedirectory(szDirectory) Dim rs_FileObject, rs_Folder, rs_Files, nLength, szTemp
Set rs_FileObject = Server.CreateObject ("Scripting.FileSystemObject")

nLength = Len(szPath) + 1 if rs_FileObject.FolderExists(szDirectory) = true then
Set rs_Folder = rs_FileObject.GetFolder (szDirectory) For each rs_Files in rs_Folder.SubFolders
makedirectory(rs_Files)
Next For each rs_Files in rs_Folder.Files
                               ' 判断是否你要找的文件                          
Next
End if