直接判断 e.FullPath 不就好了?
Dim ifo As new FileInfo(e.FullPath)msgbox("扩展名:" & ifo.Extension)
http://www.foxtable.com/webhelp/scr/2707.htm
http://www.foxtable.com/webhelp/scr/0331.htm