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

页面导航:首页 > 软件编程 > vb.net > 自动更新工作站的应用程序

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

来源: 作者: 时间:2016-02-05 12:32 【

Private Sub Form_Load()On Error GoTo errorhandler Command 函数返回 命令行的字符串信息 该程序需要两个参数 如:(thisprog.exe c:localdirprgcopied.exe

 

 

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

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <