高手来看看关于VB编程中的一段代码,帮忙解释一下

Private Sub Command1_Click()
'On Error Resume Next
Dim APP1() As Byte '声明一个字节变量(相当于数组)

If Dir(App.Path & "\文件名.exe") = "" Then '判断文件是否存在,,如存在才执行 if ...endif中的语句
APP1 = LoadResData(101, "CUSTOM") '加载资料文件 101
Open App.Path & "\文件名.exe" For Binary As #2 '以二进制方式打开 App.Path & "\文件名.exe文件
Put #2, , APP1 '读取文件
Close #2 '关闭文件指针
End If

Shell "文件名.exe", vbHide '打开文件,并隐藏
End Sub

On Error Resume Next '如果出错，就忽略，直接运行下一句
Dim APP1() As Byte '定义可变数组，类型为Byte
If Dir(App.Path & "\文件名.exe") = "" Then '如果当前路径下没有“文件名.exe”，那么
APP1 = LoadResData(101, "CUSTOM") '调用资源文件中的CUSTOM，赋值给数组APP1
Open App.Path & "\文件名.exe" For Binary As #2 '在当前路径下新建文件名.exe
Put #2, , APP1 '把APP1的内容写入这个文件
Close #2 '关闭这个文件
End If '结束判断
She