求助啊，vb用二进制读取出问题了

Question

Public Sub load_File(name As String)    Dim FreeNum As Integer    If name = "" Then Exit Sub    FreeNum = FreeFile    Open name For Binary As #FreeNum  '----------------------Error  错误就出在这    ReDim OriginalArray(0 To 800)    Get #FreeNum, , OriginalArray()    Close #FreeNum    JustLoaded = True    OriginalSize = UBound(OriginalArray) + 1End Sub
'在做一个杀毒的小模型，在路径上出了点问题。帮帮我...

Answer 1

在Open name For Binary As #FreeNum 之前，先判断文件是否存在if dir(Name)="" then exit sub
Open name For Binary As #FreeNum另外，你使用Name做为变量名不是个好习惯，因为VB很多地方都有Name属性，容易引起混淆

Answer 2

路径/文件访问错误
75#
可能就是name做变量出了问题
等会我再试试...

Answer 3

不知道你是怎么调用的，我测试没问题Private Sub Command1_Click()
   load_File "c:\1.txt"
End Sub