代码如下:‘===================================== ‘获得文件后缀 ‘===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)<2 Or Instr(t0,”.”)=0 Then Get_Filetxt=False:Exit Function t1=Split(t0,”.”) Get_Filetxt=Lcase(t1(Ubound(t1))) End Function ‘==================================