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

Private Sub Form_Load()
On Error GoTo errorhandler
' Command 函数返回
' 命令行的字符串信息
' 该程序需要两个参数
' 如:(thisprog.exe c:\localdir\prgcopied.exe
' k:\servrdir\prgtocopy.exe)
If FileDateTime(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
FileCopy Mid$(Command$,InStr(Command$, " ") 1), Left(Command$, InStr(Command$, " ") - 1)
End If
'开始程序
x = Shell(Left(Command$, InStr(Command$, " ") - 1), 3)
End
Exit Sub
errorhandler:
If Err = 53 Then '文件没有
Resume Next '还是要拷贝
Else
MsgBox "错误 # " & Err & Chr(10) & Error & Chr(10) & "结束"
End
End If
Exit Sub
End Sub

上一篇： 制作自己的网络搜索软件
下一篇： 怎样用VB得知系统当前是否处于internet链结状态

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有