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
红色的那一句。

sys32   使用  FreeFile 函数来取一个有效的 文件通道号。

sys32 = FreeFile

所有的文件通道号 都使用 变量来保存。临时变量也成。
都使用 这个函数来取号 。
整个工程中，不能出现 一部分使用固定的文件通道号，一部分使用 这个函数取的号。这样容易导致取的号与固定的号冲突而导致错误。

只要你不会同时打开 512 个文件，就不会因为这个原因出现错误。

感谢！