一个简单的vb问题，关于打开文件

Question

Close #1 ‘因为重复执行打开的命令就警告文件已打开，就加这句
dk.ShowOpen ‘dk是对话框控件，改名了
If dk.FileName <> "" Then ‘如果路径为实值
Open dk.FileName For Output As #1 ‘则打开
Print #1, txt.Text ‘我把文本框改名为txt了
End If

这个为什么执行以后没有反应（在加close #1之前也不行）

Answer 1

'正常的语法不是应该这样吗?
If dk.FileName <> "" Then ‘如果路径为实值
Open dk.FileName For Output As #1 ‘则打开
Print #1, txt.Text ‘我把文本框改名为txt了
Close #1
End If
'你确定dk.FileName 是一个正常的完整的文件路径加上文件名称?

如果不是这两个问题的话
'设置一个断点看看吧追问

怎么设断点

追答

像这样在代码前面点一下,文字背景变成暗红色,然后运行程序,程序走到这里就会停顿,你把鼠标放到变量上面(不要按下去),就会显示变量的值,然后点F8执行下一句............每执行一句观察一下变量的值以及其他,..................

实在不行,把源代码粘贴出来,或者需求说一下,肯定会有人给你解答的........

Answer 2

没有错误.可能是你注释部分有问题,那个撇号,用下面的再试试.我试了.可以.
Close #1 '因为重复执行打开的命令就警告文件已打开，就加这句
dk.ShowOpen 'dk是对话框控件，改名了
If dk.FileName <> "" Then '如果路径为实值
Open dk.FileName For Output As #1 '则打开
Print #1, txt.Text '我把文本框改名为txt了
End If本回答被网友采纳

Answer 3

应该每次结束就关闭文件:
dk.ShowOpen ‘dk是对话框控件，改名了
If dk.FileName <> "" Then ‘如果路径为实值
Open dk.FileName For Output As #1 ‘则打开
Print #1, txt.Text ‘我把文本框改名为txt了
Close #1 ‘因为重复执行打开的命令就警告文件已打开，就加这句
End If

你加一句语句，判断一下：
dk.ShowOpen ‘dk是对话框控件，改名了
msgbox dk.FileName '看看文件标识符与实际情况如何
If dk.FileName <> "" Then ‘如果路径为实值
Open dk.FileName For Output As #1 ‘则打开
Print #1, txt.Text ‘我把文本框改名为txt了
Close #1 ‘因为重复执行打开的命令就警告文件已打开，就加这句
End If

补充:
你把Close #1放到后面就可以了,因为你放在前面,而有没有终止程序,直接去看那个文件,是没有内容的了!!!!