自动更新工作站的应用程序-VB-学习资源,学习图书,电子图书-教学资源-e时空

当前位置：主页 - 电脑 - 程序设计 - VB

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

来源：网络转载作者：未知更新时间：2009-01-21

【收藏此页】【字号大中小】【打印】【关闭】

PrivateSubForm_Load()
OnErrorGoToerrorhandler
'Command函数返回
'命令行的字符串信息
'该程序需要两个参数
'如:(thisprog.exec:\localdir\prgcopied.exe
'k:\servrdir\prgtocopy.exe)
IfFileDateTime(Left(Command$,InStr(Command$,"")-1))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$,"")-1)
EndIf
'开始程序
x=Shell(Left(Command$,InStr(Command$,"")-1),3)
End
ExitSub
errorhandler:
IfErr=53Then'文件没有
ResumeNext'还是要拷贝
Else
MsgBox"错误#"&Err&Chr(10)&Error&Chr(10)&"结束"
End
EndIf
ExitSub
EndSub->

其它资源

本类热门

热门排行

来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考，本站不主张将其做为决策的依据，浏览者可自愿选择采信与否，本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络，其版权为原权利人所有。由于来源之故，有的文章未能获得作者姓名，署“未知”或“佚名”。对于这些文章，有知悉作者姓名的请告知本站，以便及时署名。如果作者要求删除，我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创，本站拥有所有权利。
4、如对本站发布的信息有异议，请联系我们，经本站确认后，将在三个工作日内做出修改或删除处理。
请参阅权责声明！