自动更新工作站的应用程序
PrivateSubForm_Load()
OnErrorGoToerrorhandler
'Command函数返回
'命令行的字符串信息
'该程序需要两个参数
'如:(thisprog.exec:localdirprgcopied.exe
'k:servrdirprgtocopy.exe)
IfFileDateTime(Left(Command$,InStr(Command$,"")-1))FileDateTime(Mid$(Command$,InStr(Command$,"") 1))Then
Top=(Screen.Height-Height)/2
Left=(Screen.Width-Width)/2
label1="拷贝"&Mid$(Command$,InStr(Command$,"") 1)&"到你的硬盘..."
Visible=True
Refresh
FileCopyMid$(Command$,InStr(Command$,"") 1),Left(Command$,InStr(Command$,"")...[ 查看全文 ]
