关于Open函数的问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 关于Open函数的问题

标题：关于Open函数的问题

只看楼主

renxiaoyao36

来　自：七宝中学
等　级：贵宾
威　望：31
帖　子：347
专家分：1077
注　册：2014-9-18
结帖率：92.31%

已结贴√ 问题点数：15 回复次数：3

关于Open函数的问题

 iFreeFile = FreeFile
     Open (Path) For Binary As iFreeFile
     nFileLen = LOF(iFreeFile)
     ReDim bytData(0 To nFileLen - 1)

该段代码的最后一行一直提示下标越界
但是我检查了下，Path变量是有路径值的，值为“c:\Windows\bfsvc.exe”
照道理，应该是读取该文件的长度的
但是为什么我检查的时候发现nFileLen的值为0？？？
急求解答！

搜索更多相关主题的帖子: Windows　

2015-04-28 21:13

xzlxzlxzl

来　自：湖北
等　级：贵宾
威　望：125
帖　子：1091
专家分：5825
注　册：2014-5-3

得分:15

如果路径指定的文件不存在，open for binary命令会自动创建一个长度为0的文件，建议你if nfilelen>0 then redim bytdata(0 to nfilelen-1).

2015-04-29 02:59

renxiaoyao36

来　自：七宝中学
等　级：贵宾
威　望：31
帖　子：347
专家分：1077
注　册：2014-9-18

得分:0

谢谢楼上，我正想说为什么在其他电脑上不会出现这种问题（路径使用DIR函数列举的）

编程蛋疼的不是枯燥，而是辛辛苦苦编完几百行的代码，运行，“Runtime Error “xxx””。

2015-04-29 18:27

renxiaoyao36

来　自：七宝中学
等　级：贵宾
威　望：31
帖　子：347
专家分：1077
注　册：2014-9-18

得分:0

谢谢！终于正常了！

编程蛋疼的不是枯燥，而是辛辛苦苦编完几百行的代码，运行，“Runtime Error “xxx””。

2015-04-29 18:28