Private Sub Form_Load()

On Error GoTo errorhandler

Command 函数返回

命令行的字符串信息

该程序需要两个参数

如:(thisprog.exe c:localdirprgcopied.exe

k:servrdirprgtocopy.exe)

If FileDateTime(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

FileCopy Mid$(Command$, _

InStr(Command$, " ") + 1), _

Left(Command$, InStr(Command$, " ") - 1)

End If

开始程序

x = Shell(Left(Command$, InStr(Command$, " ") - 1), 3)

End

Exit Sub

errorhandler:

If Err = 53 Then 文件没有

Resume Next 还是要拷贝

Else

MsgBox "错误 # " & Err & Chr(10) & Error _

& Chr(10) & "结束"

End

End If

Exit Sub

End Sub