VB 写入文档问题
来源:百度知道 编辑:UC知道 时间:2024/06/23 18:20:40
我用下面的简单语句进行可选择路径的数据保存,但当我取消不保存的时候,怎么出现 ”路径/文件访问错误“?
Private Sub Command2_Click()
CommonDialog1.Filter = "file(*.txt)|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Label1.Caption & " " & Text1.Text & " m "
Close #1
MsgBox "数据保存成功", 64, "提示信息"
End Sub
Private Sub Command2_Click()
CommonDialog1.Filter = "file(*.txt)|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Label1.Caption & " " & Text1.Text & " m "
Close #1
MsgBox "数据保存成功", 64, "提示信息"
End Sub
取消后程序还会继续往下执行。
你要判断下
CommonDialog1.ShowSave 后面加
if CommonDialog1.FileName ="" then exit sub
或者更严密一点。判断CommonDialog1.FileName这个文件是否存在。如果存在。在写文件。
Private Sub Command2_Click()
on error goto A
CommonDialog1.Filter = "file(*.txt)|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Label1.Caption & " " & Text1.Text & " m "
Close #1
MsgBox "数据保存成功", 64, "提示信息"
A:
End Sub
这样可以解决提示,会提示说没有找到路径/。应该是因为没有找到路径。因为你根本就没有选择路径
处理一下cancel就可以了
因为你取消的时候返回的是空值 所以提示路径错误
当你取消的时候
CommonDialog1.FileName 的值应该是 "" (空)
Open CommonDialog1.FileName For Output As #1
打开一个空的地址 自然是 错误的
你可以这样
Private Sub Command2_Click()
CommonDialog1.Filter = "file(*.txt)|*.txt"
CommonDialog1.ShowSave
if CommonDialog1.F