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->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
