如何获取文件的名称和扩展名？

如何获取文件的名称和扩展名？

 

<%

Function getFilename(text)

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

getFilename = text

 

End Function

 

Function getExtn(text)

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

getExtn = text

End Function

%>

[1]