查找后缀名

          nam = nam.Substring(nam.LastIndexOf("\") + 1).ToUpper
            Dim i As Int16 = nam.LastIndexOf(".")
            Dim ext As String = nam.Substring(i).ToUppe