123.htm

vb功能实例介绍。详细、很好的实例说明。

<p>自动更新工作站的应用程序</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>On Error GoTo errorhandler</p>
<p>' Command 函数返回 </p>
<p>' 命令行的字符串信息</p>
<p>' 该程序需要两个参数</p>
<p>' 如:(thisprog.exe c:\localdir\prgcopied.exe </p>
<p>' k:\servrdir\prgtocopy.exe)</p>
<p>If FileDateTime(Left(Command$, _</p>
<p>InStr(Command$, " ") - 1)) < _</p>
<p>FileDateTime(Mid$(Command$, _</p>
<p>InStr(Command$, " ") + 1)) Then </p>
<p>Top = (Screen.Height - Height) / 2</p>
<p>Left = (Screen.Width - Width) / 2</p>
<p>label1 = "拷贝 " & Mid$(Command$, InStr_</p>
<p>(Command$, " ") + 1) & _</p>
<p>" 到你的硬盘..."</p>
<p>Visible = True</p>
<p>Refresh</p>
<p>FileCopy Mid$(Command$, _</p>
<p>InStr(Command$, " ") + 1), _</p>
<p>Left(Command$, InStr(Command$, " ") - 1)</p>
<p>End If</p>
<p>'开始程序</p>
<p>x = Shell(Left(Command$, InStr(Command$, " ") - 1), 3)</p>
<p>End</p>
<p>Exit Sub</p>
<p>errorhandler:</p>
<p>If Err = 53 Then '文件没有</p>
<p>Resume Next '还是要拷贝</p>
<p>Else </p>
<p>MsgBox "错误 # " & Err & Chr(10) & Error _</p>
<p>& Chr(10) & "结束"</p>
<p>End</p>
<p>End If</p>
<p>Exit Sub</p>
<p>End Sub</p>
<p></p>