关于Open函数的问题

renxiaoyao36 发布于 2015-04-28 21:13， 408 次点击

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

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

3 回复

xzlxzlxzl2015-04-29 02:59

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

renxiaoyao362015-04-29 18:27

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

renxiaoyao362015-04-29 18:28

谢谢！终于正常了！