直接判断文件名,不就知道了?
Dim fl As String = "aaa.jpg"Dim idx As Integer = fl.LastIndexOf(".")Dim ext As String = fl.SubString(idx)msgbox(ext)