Xdel

*--------------------------------------------------------------------------------------------------------------

* Xdel permet de supprimer des fichiers (& répertoires vides) récursivement

*--------------------------------------------------------------------------------------------------------------

* Paramétres :

* p_files : Unité:\répertoire\masque"

* exemple

* =Xdel("c:\temp\t*.tmp")

* pas de défaut

* pour éviter les boulettes on impose préciser une unité, un chemin et un masque

* on vérifie que le chemin existe

* [_options] :

* /D supprime les sous-répertoires vides

* /N efface les fichier spécifiés sans confirmation (attention !)

* /S traiter les fichiers des sous-répertoires (récursif)

* /H traiter aussi les fichiers cachés (hidden)

* /L faire un log

* /Q quiete : faire l'opération sans afficher de messages d'information (sauf la question de suppression de /N)

* /O option "no recycle" : ne pas mettre a la poubelle (défaut)

* exemple

* =Xdel("c:\temp\*.bak","/D /N /O /S /L")

* cet exemple supprime les fichiers *.bak du répertoire c:\temp et de tous ses sous répertoires, sans confirmer, sans mettre à la corbeille,et traite aussi tout les sous répertoires de c:\temp, et fait un log

*--------------------------------------------------------------------------------------------------------------

SET PROCEDURE TO vfpXdel

* suppression du répertoire "C:\data\vfpXdel\test\" (et de ses sous répertoires)

? Xdel("C:\data\vfpXdel\test\*.*","/D /N /S /H /L /Q/O")

* suppression des fichiers .bak du répertoire temp

? Xdel("C:\temp\*.bak","/N /L /O /Q /S")