请教

feier

我用了CommonDialogp这个控件，用于用户选择文件，
代码如下这样写：
CommonDialog1.DialogTitle = "Open Text File"
CommonDialog1.InitDir = CurrentProject.Path
CommonDialog1.Filter = "*.txt"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.CancelError = False

CommonDialog1.ShowOpen
Me.TEXTFILE = CommonDialog1.FileName
但是这样当用户选的不是文本文件时，并不会出现出错提示，告诉用户文件类型错了。
请问还用加那些代码这样才会有提示出来

zhengjialon

改成这样加一个判断
CommonDialog1.DialogTitle = "Open Text File"
CommonDialog1.InitDir = CurrentProject.Path
CommonDialog1.Filter = "*.txt"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.CancelError = False

CommonDialog1.ShowOpen

If Right(CommonDialog1.FileName, 4) <> ".txt" Then
    Me.TEXTFILE = ""
    MsgBox "不是TXT文件"
Else
    Me.TEXTFILE = CommonDialog1.FileName
End If

[此贴子已经被zhengjialon于2002-12-9 11:21:06编辑过]