Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Copy File animation?
Message
 
To
09/06/1999 20:06:17
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00228152
Message ID:
00228395
Views:
13
>It's there. Check Api section. File's name is WinFile.
>Mark

Thanks, I found it and have downloaded it. I am, however, new to using DLL's and the API code that is included. Can you help me a bit more?

I have a launcher program (just code, as shown below) that checks for the existence of an updated exe on the server before launching the main app. For the case when the local drive needs to be updated, can you run through the steps needed to make it work? "Including" the DLL, making the API call, etc.

Thanks!
CLOSE ALL
Clear ALL
#Include MsgBox.H

IF fdate('c:\qdms2000\qdms2000.exe',1) < fdate('\\stdsrv01\kdrive\qa\qdms2000\qdms2000.exe',1)
	IF messagebox("Your QDMS application software requires updating."+chr(13)+chr(13)+;
	"This process will only take a few seconds."+chr(13)+chr(13)+"Press OK to update, or CANCEL to return to Windows.",;
			D_Nexclamation+d_nokcancel,"QDMS 2000 Software Update")=d_nok
		SET safety off
		COPY file ('\\stdsrv01\kdrive\qa\qdms2000\qdms2000.exe') to ('c:\qdms2000\qdms2000.exe')
		COPY file ('\\stdsrv01\kdrive\qa\qdms2000\readme.txt') to ('c:\qdms2000\readme.txt')
		SET safety on

		IF messagebox("Update complete!"+chr(13)+chr(13)+"Would you like to view the README file for the updated software?",;
				D_Ninformation+d_nyesno,"QDMS 2000 Software Update")=d_nyes
			RUN /n1 c:\windows\notepad.exe c:\qdms2000\readme.txt
		ENDIF
	ELSE
		QUIT
	ENDIF
	RUN /n c:\qdms2000\qdms2000.exe
ELSE
	RUN /n c:\qdms2000\qdms2000.exe
ENDIF
Phil Thomas
http://phillipdthomas.com

Never let your energy or enthusiasm be dampened by the discouragements that must inevitably come.....
Previous
Reply
Map
View

Click here to load this message in the networking platform