Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Copy File animation?
Message
 
À
09/06/1999 20:06:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00228152
Message ID:
00228395
Vues:
12
>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.....
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform