| 本月文章推荐 |
自动更新工作站的应用程序发表日期：2006-2-27
|
|
PrivateSubForm_Load()
OnErrorGoToerrorhandler 'Command函数返回 '命令行的字符串信息 '该程序需要两个参数 '如:(thisprog.exec:\localdir\prgcopied.exe 'k:\servrdir\prgtocopy.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$,"")-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-> |
| 上一篇：自己的IE——用VB制作浏览器
人气:4172 下一篇：制作自己的网络搜索软件 人气:2678 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
