自动更新工作站的应用程序

PrivateSubForm_Load()
OnErrorGoToerrorhandler
'Command函数返回
'命令行的字符串信息
'该程序需要两个参数
'如:(thisprog.exec:\localdir\prgcopied.exe
'k:\servrdir\prgtocopy.exe)
IfFileDateTime(Left(Command$,InStr(Command$,"")-1))%26lt;FileDateTime(Mid$(Command$,InStr(Command$,"") 1))Then
Top=(Screen.Height-Height)/2
Left=(Screen.Width-Width)/2
label1="拷贝"%26amp;Mid$(Command$,InStr(Command$,"") 1)%26amp;"到你的硬盘..."
Visible=True
Refresh
FileCopyMid$(Command$,InStr(Command$,"") 1),Left(Command$,InStr(Command$,"")-1)
EndIf
'开始程序
x=Shell(Left(Command$,InStr(Command$,"")-1),3)
End
ExitSub
errorhandler:
IfErr=53Then'文件没有
ResumeNext'还是要拷贝
Else
MsgBox"错误#"%26amp;Err%26amp;Chr(10)%26amp;Error%26amp;Chr(10)%26amp;"结束"
End
EndIf
ExitSub
EndSub->