Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Remove all pictures at once
Message
From
20/07/2009 02:00:22
 
General information
Forum:
Visual FoxPro
Category:
Project manager
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01413309
Message ID:
01413334
Views:
107
This message has been marked as the solution to the initial question of the thread.
>Hi everybody,
>
>I want to be able to remove all bmps files from the project. I'm only able to do this one by one from Project manager window. Do you know another trick here to remove them all at once?
>
>Thanks a lot in advance.

Hi Naomi,

Next to Hilmar's suggestion, you can also use the Project.Files collection, e.g.
* Display Type, Name
Local loFile
FOR EACH loFile IN _vfp.ActiveProject.Files
	IF LOWER(JUSTEXT(m.loFile.Name)) == 'bmp'
		? m.loFile.Type, m.loFile.Name
	ENDIF
ENDFOR

* Remove BMPs
Local lnFile
FOR lnFile = _vfp.ActiveProject.Files.Count TO 1 STEP -1
	IF LOWER(JUSTEXT(_vfp.ActiveProject.Files(m.lnFile).Name)) == 'bmp'
		_vfp.ActiveProject.Files(m.lnFile).Remove() && optional lpDeleteFlag
	ENDIF
ENDFOR
hth
-Stefan
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform