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

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

欢迎加入我们，一同切磋技术

共有 408 人关注过本帖

标题：关于Open函数的问题

取消只看楼主加入收藏

renxiaoyao36

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

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

关于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

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

快速回复：关于Open函数的问题