QBASIC怎么判断文件是否存在

[qq_25902145]

谢谢高手们，指点下，用QASIC判断DOS一文件是存在？

[思考]

dos 东东，老多年不用了

[饮水需思源]

if dir("c:\aa.text")<>"" then msgbox "文件已经存在！",48,"提示" exit sub end if

[threenewbee]

dir函数在qb是可以用的。按f1有帮助。

[舉杯邀明月]

引用 8 楼 jthkl 的回复:

楼主的问题2楼是正常方法，5楼算“歪门邪道”，不过也算另辟蹊径。就是万一程序复杂了on error 里再套一个 on error会怎样？没试过。

2楼是“正常方法”？？ 难道你不知道2楼的是VB6或VBA代码，不能用在 QBASIC 中吗。 大致“推测”，赵老师的方法应该是对的。 用Input模式打开文件，文件不存在就会引起异常。

[舉杯邀明月]

引用 8 楼 jthkl 的回复:

..............就是万一程序复杂了on error 里再套一个 on error会怎样？没试过。

我觉得这个是“编程构思、规划”不当造成的问题。 我到目前为止，VB6、VBA代码也写过不少了。 如果某函数、过程需要异常处理，那只会在相应的入口处出现一个 On Error Goto ...... 一个过程中从不会出现第２个 On Error 语句。

[jthkl]

现在见到QBASIC这几个字母都很怀念了。

[赵4老师]

引用 4 楼 jthkl 的回复:

现在见到QBASIC这几个字母都很怀念了。

[赵4老师]

用Open语句结合On Error，Open出错就说明文件不存在。

[jthkl]

5楼还能找到软件（图片？）啊，1987-1992,92年我多大，都要仔细算算才知道了。我记得里边有几个微软的demo，有一个是贪吃蛇，玩过很多次。

[jthkl]

楼主的问题2楼是正常方法，5楼算“歪门邪道”，不过也算另辟蹊径。就是万一程序复杂了on error 里再套一个 on error会怎样？没试过。

[jthkl]

引用 9 楼 Chen8013 的回复:

[quote=引用 8 楼 jthkl 的回复:] 楼主的问题2楼是正常方法，5楼算“歪门邪道”，不过也算另辟蹊径。就是万一程序复杂了on error 里再套一个 on error会怎样？没试过。

2楼是“正常方法”？？ 难道你不知道2楼的是VB6或VBA代码，不能用在 QBASIC 中吗。 大致“推测”，赵老师的方法应该是对的。 用Input模式打开文件，文件不存在就会引起异常。 [/quote] 是吗。如果我错了，很抱歉。因为已经实在是太久没有用过qbasic了，最后一次好像是2003年做了一个小程序，因为有点特别所以记住了年份。记得再早的时候在apple II basic里还有纯粹的goto语句，总之都是过去了。倒是楼主如果不是非常必要建议还是放弃qbasic吧，像goto这样的语句是非常不符合现在的编程理念的。

[用户 昵称]

很明显，赵老湿的做法是标准做法。