Automatically Upgrade Workstation EXEs

Automatically Upgrade Workstation EXEs

I’m programming for a LAN and quite often I add requested features to the program. The LAN is set up so that each workstation is running its own copy of the program and is only reading/writing data files on the server. This arrangement has significantly increased the startup speed of the program; however, when the EXE file is changed, all the workstation programs must be changed. I get around having to go to each station with this program:

 Private Sub Form_Load()	On Error GoTo errorhandler	' the Command function Returns the 	' argument portion of the command 	' line used to launch Microsoft 	' Visual Basic or an executable 	' program developed with Visual Basic.	' ie:(thisprog.exe c:localdirprgcopied.exe 	' k:servrdirprgtocopy.exe)	If FileDateTime(Left(Command$, _		InStr(Command$, " ") - 1)) < _		FileDateTime(Mid$(Command$, _		InStr(Command$, " ") + 1)) Then 		' case the file does not exist		' locate the form designed to your pref.		Top = (Screen.Height - Height) / 2		Left = (Screen.Width - Width) / 2		' containing a label		label1 = "Copying " & Mid$(Command$, InStr_			(Command$, " ") + 1) & _			" to your hard_disk..."		' make the form it visible so the 		' operator has something to look 		' at while the program is copied		Visible = True		Refresh		' copy file as per parameters in Command$		FileCopy Mid$(Command$, _			InStr(Command$, " ") + 1), _			Left(Command$, InStr(Command$, " ") - 1)	End If	'start the program	x = Shell(Left(Command$, InStr(Command$, " ") - 1), 3)	End	Exit Suberrorhandler:	If Err = 53 Then 'file not found		Resume Next 'copy the file anyway	Else 'trap other errors		MsgBox "Error # " & Err & Chr(10) & Error _ 				& Chr(10) & "program will be terminated"		End	End If	Exit SubEnd Sub
Share the Post:
data observability

Data Observability Explained

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved