请问使用commondialog打开文件时，怎样获得.filename的扩展名啊，望各位大侠指点，非常感谢！

Question

谢谢！！！

Answer 1

cmDialog.CancelError = False
    cmDialog.FileName = "FileExcel"
    cmDialog.DialogTitle = "Save Export File"
    cmDialog.Filter = "Excel (*.xls)|*.xls|文本文件(*.DBF)|*.DBF|檔案文件(*.doc)|*.doc|所有文件(*.*)|*.*"
    cmDialog.DefaultExt = "*.xls"打開對話框時，可以得到幾種類型的文件，但默認擴展名是.xls

Answer 2

dim filename as string
dim kuozhanming as string
filename=cmDialog.Filename
kuozhanming=right(filename,3)    '意思是从filename的右边取3个字符，即扩展名。

Answer 3

窗体上放一个COMMONDIALOG1和一个COMMAND BUTTON
写如下代码：
Private Sub Command2_Click()
Dim FN As String
Dim Names
CommonDialog1.ShowOpen
FN = CommonDialog1.FileName
Names = Split(FN, ".", 2)
MsgBox Names(1)
End Sub
F5运行，选择一个文件，程序会跳出一个对话框显示所选文件的后缀名。
但是当选择的文件名本身包含“.”时会得到一个错误的结果，可以自己测试和修改。

Answer 4

楼上starsoulxp(星魂) 朋友用的方法也基本正确，但是当遇到有些后缀名不是3个字符的时候也会发生错误。

Answer 5

告诉你一个完整方法：vb的fso对象，首先引用 vbruning 库，dim  fso as filestyte
set fso=new filestyte,fso...其中有方法可以得到不包含路径的文件名，且不含后缀，然后用字符串函数得到后缀，fso对象你查以下