Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Remove all pictures at once
Message
De
20/07/2009 02:00:22
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de projet
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01413309
Message ID:
01413334
Vues:
106
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform