Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
'File in use' error
Message
De
26/04/2005 15:22:33
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
'File in use' error
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP SP2
Network:
Windows NT
Database:
Visual FoxPro
Divers
Thread ID:
01008590
Message ID:
01008590
Vues:
68
hello everybody.

does anyone have an idea why the following errors "File In Use" on the 2 delete comands?
the created form releases fine, exits, and the code (the delete comands) are executed, but fail.
		LOCAL ;
			SaveInPath, ;
			VcxName, ;
			ClassName

		SaveInPath	= GetPath("TEMP", .T.)
		VcxName		= SUBS(SYS(2015), 2) + ".vcx"
		ClassName	= "MSChartTempClass"
		THISFORM.Pageframe1.ReportGraph_Page.Chartarea1.SAVEASCLASS(SaveInPath + VcxName, ClassName, "")

		THISFORM.VISIBLE		= .F.
		THISFORM.WINDOWSTATE = 0

		FullSizeDisplay = NEWOBJECT("FullSizeDisplay", THIS.CLASSLIBRARY)
		set classlib to (SaveInPath + VcxName) addi
		*FullSizeDisplay.NEWOBJECT(ClassName, ClassName, (SaveInPath + VcxName))
		FullSizeDisplay.AddOBJECT(ClassName, ClassName)
		FullSizeDisplay.LOCKSCREEN				= .T.
		FullSizeDisplay.VISIBLE					= .T.
		FullSizeDisplay.oCallingForm			= ThisForm
		FullSizeDisplay.&ClassName..TOP		= 0
		FullSizeDisplay.&ClassName..LEFT		= 0
		FullSizeDisplay.&ClassName..WIDTH	= FullSizeDisplay.WIDTH
		FullSizeDisplay.&ClassName..HEIGHT	= FullSizeDisplay.HEIGHT
		FullSizeDisplay.&ClassName..VISIBLE	= .T.
		FullSizeDisplay.LOCKSCREEN				= .F.
		FullSizeDisplay.SHOW(1)

		* *** clean up
		FullSizeDisplay = .NULL.
		RELEASE CLASSLIB (SaveInPath + VcxName)
		* *** for some reason the delete command
		* *** errors "file in use"
		*clear CLASSLIB (SaveInPath + VcxName)
		DELETE FILE (SaveInPath + VcxName)
		DELETE FILE (SaveInPath + JUSTSTEM(VcxName) + ".vct")

		THISFORM.VISIBLE = .T.
thanks for all your help!
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform