如何用文件名查找文件？

<%
dim key,key1,key2
key="/2008-08/200808271750" '关键字
key1=left(key,instrRev(key,"/")) '提交相对路径
key2=split(key,"/")(ubound(split(key,"/"))) '提取文件名
set fso=server.createobject("Scripting.FileSystemObject") '创建文件系统
folderpath=server.MapPath(key1)
set folder=fso.GetFolder(folderpath)
set allfile=folder.Files
for each fileitem in allfile
    if left(fileitem.Name,instrRev(fileitem.Name,".")-1)=key2 then
       response.write fileitem.Name&"<br>"
    end if
next
%>

我本想学会ASP后,学学PHP呢.从网上找资料,ASP的最少了.没想到居然有人从PHP转到ASP.

看来ASP还是很有前途的.
我自己试试看.
<%
dim a,b,c
a=要查询的文件,包括相对路径的.
b=split(a,"/")
c=ubound(b) 'c就是要找的文件名字.
%>
未完成,发现2#的比较好,借过来用用.
<%
dim key,key1,key2
key="/2008-08/200808271750" '关键字
key1=left(key,instrRev(key,"/")) '提交相对路径
key2=split(key,"/")(ubound(split(key,"/"))) '提取文件名
set fso=server.createobject("Scripting.FileSystemObject") '创建文件系统
folderpath=server.MapPath(key1)
set folder=fso.GetFolder(folderpath)
set allfile=folder.Files
'以上的是向2#学习的内容.
for each x in allfile
   if x.Getbasename=k2             '获得文件的基本名字,不包括后缀.
   then response.wrtie("文件存在")
   end if
   if x.Getextensionname="rar"   '想要找的文件的后缀,这里是rar
   then response.write(k2& ".rar")    '输出想要找的文件.
   end if
next
%>