欢迎光临
我们一直在努力

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

建站超值云服务器,限时71元/月

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->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 自动更新工作站的应用程序_visualbasic教程
分享到: 更多 (0)