怎样获取文件的名称和扩展名？

<%

Function getFilename(text)

text = Left(text,inStrRev(fl,".")-1)

getFilename = text

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

End Function

Function getExtn(text)

text = Left(text,inStr(text,".")-1)

getExtn = text

End Function

%>

[1]