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

%

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]