Results 1 to 3 of 3

Thread: Automatic Patch for exe

  1. #1

    Thread Starter
    New Member
    Join Date
    Apr 2003
    Location
    DFW
    Posts
    4

    Exclamation Automatic Patch for exe

    Does anyone know of a simple method to patch multiple application exes installed on each workstion all connected to a server upon which I would like to simply copy the new exe to each workstation only when I have made a change to the source on the server when the user logs on...

    I want to change the local exe (C:\windows\program files\appl.exe) with a new exe from the server... (o:\shared\sst\install\appl\appl.exe) when the server version exe is newer than the one on the hard drive of the users workstation.

    Thanks,
    Marc

  2. #2
    Frenzied Member andreys's Avatar
    Join Date
    Sep 2002
    Location
    Los Angeles
    Posts
    1,615
    1. Open notepad and type:

    copy "\\ServerName\ShareName\sst\install\appl\appl.exe" "C:\Program Files\appl.exe"

    2. Save as... "UpdateAppl.bat"

    put it on floppy or place anywhere on the network or send as e-mail attachment to the user.
    Ask them to close application first, then double-click on UpdateAppl.bat file.

  3. #3
    Addicted Member aldinator's Avatar
    Join Date
    May 2002
    Location
    Canada - better than all the rest!
    Posts
    216
    here:
    VB Code:
    1. Option Explicit
    2. Const path1 = "c:\test.txt"
    3. Const path2 = "c:\README FIRST.txt"
    4.  
    5. Private Sub Form_Load()
    6. Dim file1 As String, file2 As String, ans As Integer
    7. '*'*'*'get date and time for each file'*'*'*'
    8. file1 = FileDateTime(path1) '' this will be the server one
    9. file2 = FileDateTime(path2)
    10.  
    11. '*'*'*'start comparison'*'*'*'
    12. If Format(file1, "yyyy") = Format(file2, "yyyy") Then
    13.     If Format(file1, "mm") = Format(file2, "mm") Then
    14.         If Format(file1, "dd") = Format(file2, "dd") Then
    15.             If Format(file1, "hh") = Format(file2, "hh") Then
    16.                 If Format(file1, "min") = Format(file2, "min") Then
    17.                     MsgBox "Same File"
    18.                     Exit Sub
    19.                 End If
    20.             End If
    21.         End If
    22.     End If
    23. End If
    24. MsgBox "Not Same - Update"
    25. End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width