关于文件操作的一段代码，请高手帮忙解析

shenfen515

This example creates a file, puts the numbers 1-10 in it, then attempts to {Get} past the end of the file. The {On Error} statement traps the error and execution goes to the Debugger code which uses {Reset} to close the file before exiting.

Sub main
' Put the numbers 1-10 into a file
    Dim x as Integer
    Dim y as Integer
    On Error Goto Debugger
    Open "C:\TEMP001" as #1 Len=2
    For x=1 to 10
        Put #1,x, x
    Next x
    Close #1
    msgtext="The contents of the file is:" & Chr(10)
    Open "C:\TEMP001" as #1 Len=2
    For x=1 to 10
        Get #1,x, y
        msgtext=msgtext & Chr(10) & y
    Next x
    MsgBox msgtext
done:
    Close #1
    Kill "C:\TEMP001"
    Exit Sub
Debugger:
    MsgBox "Error " & Err & " occurred. Closing open file."
    Reset
    Resume done
End Sub

上面这段代码我总是运行不到Debugger标签这里，因为Get语句没有超出文件的最后啊，可是最上面的那段英文（书上copy来的）却说这个例子会企图超出文件的最后而出错，跳转到Debugger标签啊。怎么回事呢？

另外，Reset的到底实现了什么功能呢？

烦请哪位解答，谢谢了！

pcl2004_27

On Error Goto Debugger
的功能说当代码出现问题，或者出现异常，代码忽略错误运行到错误代码标签debugger

你的功能代码没有出现问题或者异常，所以没有执行到哪里！比如你创建文件的时候出现异常，那么代码就会执行到debugger的地方

reset的功能是关闭所有操作的文件！

shenfen515

那么既然用了Reset，跳转到Done标签后为什么还要用Close语句再关闭呢？