用文本编辑器打开文件,看前面几个字符。 Function GetDwgVer(fInfo) select case fInfo case "AC1012" GetDwgVer="AutoCAD R12" case "AC1013" GetDwgVer="AutoCAD R13" case "AC1014" GetDwgVer="AutoCAD R14" case "AC1015" GetDwgVer="AutoCAD 2000" Case "AC1018" GetDwgVer="AutoCAD 2004" case "AC1021" GetDwgVer="AutoCAD 2007" case "AC1024" GetDwgVer="AutoCAD 2010" Case Else GetDwgVer="AutoCAD" end select End Function