怎么用VB语言取到文件的扩展名

Question

用哪个语句或函数可以得到文件的扩展名呢，比如 *.ini  *.doc  *.txt *.mdb…………
希望给举出示例

Answer 1

public function GetFileExt(byval strFile as string) as string
dim iPos as integer
ipos=instrrev(strfile,".")
if ipos<=0 then exit function
getfileext=mid(strfile,ipos+1,len(strfile)-ipos)
end function

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Dim strExName As String
    Dim strFileName As String
    Dim lngDot As Long
    strFileName = "c:\myfile.doc"
    lngDot = InStrRev(strFileName, ".")
    
    If lngDot > 0 Then
        strExName = Right(strFileName, Len(strFileName) - lngDot + 1)
        MsgBox strExName
    End If
    
End Sub

Answer 3

先取得文件路径，
再用InStrRev查找最右边的“.”
再用Right取得扩展名

Answer 4

如果你能确定文件名称里面只有1点“.”的话可以用Split取最后一个