7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim sLocalFile As String
On Error GoTo ErrHandler
sLocalFile = App.Path & IIf(Right$(App.Path, 1) = "\", "", "\") & "程序.exe"
FileCopy "Z:\程序.exe", sLocalFile
SetAttr sLocalFile, vbNormal '去掉只读属性,防止下次 FileCopy 出错
'如果你需要自动执行
Shell sLocalFile, vbNormalFocus
Unload Me
ExitEntry:
Exit Sub
ErrHandler:
If Err.Number = 90 Then
MsgBox "程序正在运行,请先关闭后再执行更新。", vbExclamation
Else
MsgBox Err.Description, vbExclamation
End If
Resume ExitEntry
End Sub
Private Sub Command1_Click()
Dim sLocalFile As String
sLocalFile = App.Path & IIf(Right$(App.Path, 1) = "\", "", "\") & "程序.exe"
FileCopy "Z:\程序.exe", sLocalFile
SetAttr sLocalFile, vbNormal '去掉只读属性,防止下次 FileCopy 出错
End Sub