如题。
我采用的方法是判断文件名的倒数第4或5个字符是否是“.”来获取的，有没有现成的函数呢？
谢谢！

sExt=Right(sFileName,Len(sFileName)-InstrRev(sFileName))

非常感谢版主！

TO:二楼
有个疑问：如果像这样的文件名“1.EXE.TXT.MP3”取出来的后缀是什么？
公司电脑上没有VB没办法测试，所以只好直接问测试结果了，呵呵。

sExt=Right(sFileName,Len(sFileName)-InstrRev(sFileName))
方法正确不过还少了一个参数应该是：
sExt=Right(sFileName,Len(sFileName)-InstrRev(sFileName,"."))

sExt=iif(instr(sFileName,"."),Right(sFileName,Len(sFileName)-InstrRev(sFileName,".")),vbNullString)

奇怪的是，有时候这样也取不出后缀名，调试发现文件名没有后缀（可能是隐藏了吧？）。文件名 是用公用对话框取出来的，按道理不应没有后缀。