查找后缀名
          nam = nam.Substring(nam.LastIndexOf("\") + 1).ToUpper
            Dim i As Int16 = nam.LastIndexOf(".")
            Dim ext As String = nam.Substring(i).ToUppe
posted on 2005-05-09 14:04  T_98Dsky   阅读(408)  评论(0)    收藏  举报