MyFile = Dir("C:\WINDOWS\System32\*.ini")
...
On Error GoTo erinisys32
MyFile = Dir
...
erinisys32:
On Error GoTo 0
红色的经常错误，我知道会有错误，所以有错误处理了，但是为什么不跳转？
（...是省略的无关代码）

另外问一下，错误52，文件通道号取值范围只能是1-512但是我用一个递加变量代替这个数值，当递加变量值为513时就会出现52错误，但是此时我仍然需要下一个文件通道号。
代码：
Dim sys32 As Integer
MyFile = Dir("C:\WINDOWS\System32\*.*")
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #2
 Print #2, MyFile
   Close #2
 sys32 = sys32 + 1
bkinisys32:
On Error GoTo erinisys32
MyFile = Dir
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #sys32
Print #sys32, MyFile
   Close #sys32
sys32 = sys32 + 1
GoTo bkinisys32
erinisys32:
On Error GoTo 0
红色的那一句。

感谢！