Dim a As Integer
Open (App.Path + "\cptemp\system32.sav") For Input As #1
Input #1, a
Close #1
ListView1.ListItems(1).SubItems(1) = a
红色那一段，会不定时的出现错误。（我有两个程序，另外一个程序不定时打开App.Path + "\cptemp\system32.sav"这个文件并更新数字。
这是另外一个程序的全部代码。
Dim sys32 As Integer
MyFile = Dir("C:\WINDOWS\System32\*.*")
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #1
 Print #1, MyFile
   Close #1
 sys32 = sys32 + 1
 Open (App.Path & "\cptemp\system32.sav") For Output As #3
 Print #3, sys32
bksys32:
On Error GoTo ersys32
MyFile = Dir
    Open (App.Path & "\sdsave\WINDOWS\system32\" & sys32 & ".sav") For Output As #1
Print #1, MyFile
   Close #1
sys32 = sys32 + 1
 Open (App.Path & "\cptemp\system32.sav") For Output As #3
 Print #3, sys32
GoTo bksys32
ersys32:
End
注：上下两端代码不是同一个程序的代码，是两个程序。上面的代码运行之前先执行shell下端代码的程序。

补充：上部分的代码是timer1的，interval为1

楼上说的我不大懂。。。惭愧，我VB从2013年9月学到现在只学完了所有基础控件，一点点的外部接口语句，API和数据库以及数组我都不会用，不过楼上版主给个示范代码我就懂了，我大部分的学习都是看别人的源代码自己乱试的。

我这些都是本地运行，目标是在无网络连接的情况下运行。所以，楼上说的我不能用。。。不过，我还是自己解决了。TIMER计时器中的代码前我加了
on error resume next
这样子就好了。