没有合适的资源?快使用搜索试试~ 我知道了~
精彩编程与编程技巧-自动更新工作站的应用程序...
需积分: 8 1 下载量 92 浏览量
2009-10-10
23:29:11
上传
评论
收藏 898B TXT 举报
温馨提示
试读
2页
精彩编程与编程技巧-自动更新工作站的应用程序 ...
资源推荐
资源详情
资源评论
自动更新工作站的应用程序
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 '文件没有
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 '文件没有
资源评论
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功