Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Clean Up
Message
From
30/01/2002 09:10:58
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00612570
Message ID:
00612666
Views:
30
This message has been marked as the solution to the initial question of the thread.
>Hi Folks!
>
>When we are working with a project, we can execute the option "Clean Up" on Project menu.
>
>I'm not sure, but I think it works this way:
>Use MyProject.Pjx Exclusiv
>Pack
>Use
Yes, I am sure this is what VFP does.

>Is there something like it, but when you execute, the "Clean Up" does it in all files that is inside the project (Forms / Class / Reports).
>
>Any solution?
>
>[]s

There is no need to pack forms or reports, only class libraries, the project, and database container.

If you have VFP 6 or later, use a project hook. Adapt the following sample, which opens all forms in a project for edit:
* The following commands modify all forms of the active project,
* Except for VFX forms. Useful for a systematic review.

clear
FOR EACH oFile IN Application.ActiveProject.Files
	* For all forms, except vfx*.scx
	if oFile.Type = "K" and left(justfname(oFile.Name),3) # "vfx" && non-VFX Form
		* ? justfname(oFile.Name)	&& This would just list the files
		oFile.Modify()	&& modify form
	endif
ENDFOR

#IF .F.
Codes for types:
d	Database
D	Free Table
Q	Query
K	Form
R	Report
B	Label
V	Visual Class Library
P	Program
L	FLL
Z	APP
M	Menu
T	Text
x	Other
#ENDIF
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Previous
Reply
Map
View

Click here to load this message in the networking platform