Office中国论坛/Access中国论坛

标题: 请教 [打印本页]

作者: feier 时间: 2002-12-9 18:08
标题: 请教
我用了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 时间: 2002-12-9 19:21
改成这样加一个判断
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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)