|
PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile |
| | | | | |
| Comment supprimer le contenu d'un répertoire? |
| Started by nrobin, Apr., 20 2006 6:02 PM - 5 replies |
| |
| | | |
|
| |
Posted on April, 20 2006 - 6:02 PM |
Bonjour,
j'aurais voulu savoir comment est-il possible de supprimer le contenu d'un répertoire sans connaître le nom des fichiers et dossiers qu'il contient.
Voila les fonctions que j'utilise:
__________________________________________________________________________
// Suppression des fichiers contenus dans le répertoire "CheminRepertoire"
fSupprime(CheminRepertoire+"\*.*",frLectureSeule)
// Suppression des répertoires contenus dans le répertoire "CheminRepertoire"
fRepSupprime(CheminRepertoire+"\*\",frRécursif)
__________________________________________________________________________
Les fichiers contenus dans le répertoire "CheminRepertoire" sont bien supprimés mais les sous-répertoires qu'ils contient ne sont pas supprimés.
Comment dois-je faire pour supprimer tout le contenu du répertoire "CheminRepertoire" sans supprimer le répertoire "CheminRepertoire"?
Merci d'avance
Nicolas R. |
| |
| |
| | | |
|
| | |
| |
Posted on April, 20 2006 - 7:00 PM |
J'utilise cette commande:
fRepSupprime( ".\Temp" ,frRécursif)
et tous les sous-rép. et fichiers sont supprimés.
A tester.
A+ |
| |
| |
| | | |
|
| | |
| |
Posted on April, 20 2006 - 7:01 PM |
salut
consulte l'aide de fRepSupprime |
| |
| |
| | | |
|
| | |
| |
Posted on April, 20 2006 - 7:02 PM |
Bonjour,
je pense que tu devrais quand meme supprimer tout le répertoire et le recréer, ca te prendrais que 2 lignes :
fRepSupprime() et fRepCrée()
Bonne continuation et bon Dev.
Chris Letellier. |
| |
| |
| | | |
|
| | |
| |
Posted on April, 21 2006 - 12:26 PM |
Tout d'abord, merci pour vos renseignements.
J'ai déja essayé fRepSupprime() et fRepCrée() mais çà ne fonctionne pas.
Enfin, çà ne fonctionne pas toujours
Je crois que j'orais dû préciser qu'il s'agit du répertoire "Temporary Internet Files".
Voila ce que j'ai essayé:
_________________________________________________________________________
MonRépertoire = "C:\Documents and Settings\"+Utilisateur_en_cours+"\Local Settings\Temporary Internet Files\"
SI fRépertoireExiste(MonRépertoire) ALORS
SI PAS fSupprime(MonRépertoire+"*",frLectureSeule) ALORS
Erreur(ErreurInfo)
FIN
FIN
_________________________________________________________________________
Remarque: le code ci-dessus fonctionne mais ne supprime pas les sous-dossiers
SINON, j'ai aussi essayé de supprimer et de recréer mon répertoire:
_________________________________________________________________________
MonRépertoire = "C:\Documents and Settings\"+Utilisateur_en_cours+"\Local Settings\Temporary Internet Files\"
SI fRépertoireExiste(MonRépertoire) ALORS
// Suppression du répertoire
SI PAS fRepSupprime(MonRépertoire,frRécursif) ALORS
Erreur(ErreurInfo)
FIN
// Attente
Multitâche(100)
Info("Création de :",MonRépertoire)
// Création nouveau répertoire
SI PAS fRepCrée(MonRépertoire) ALORS
Erreur(ErreurInfo)
FIN
FIN
_________________________________________________________________________
Remarque: En utilisant ce code, le dossier n'est pas supprimer.
D'après l'erreur retournée, il semble que ce soit un problème de droit d'accès. Mais je suis Administrateur local.
Comment palier à ce problème?
Merci d'avance.
Nicolas ROBIN |
| |
| |
| | | |
|
| | |
| |
Posted on April, 21 2006 - 1:23 PM |
Dans son message, Nicolas ROBIN racontait :
Tout d'abord, merci pour vos renseignements.
J'ai déja essayé fRepSupprime() et fRepCrée() mais çà ne fonctionne pas.
Enfin, çà ne fonctionne pas toujours
Je crois que j'orais dû préciser qu'il s'agit du répertoire "Temporary Internet Files".
Voila ce que j'ai essayé:
_________________________________________________________________________
MonRépertoire = "C:\Documents and Settings\"+Utilisateur_en_cours+"\Local Settings\Temporary Internet Files\"
SI fRépertoireExiste(MonRépertoire) ALORS
SI PAS fSupprime(MonRépertoire+"*",frLectureSeule) ALORS
Erreur(ErreurInfo)
FIN
FIN
_________________________________________________________________________
Remarque: le code ci-dessus fonctionne mais ne supprime pas les sous-dossiers
SINON, j'ai aussi essayé de supprimer et de recréer mon répertoire:
_________________________________________________________________________
MonRépertoire = "C:\Documents and Settings\"+Utilisateur_en_cours+"\Local Settings\Temporary Internet Files\"
SI fRépertoireExiste(MonRépertoire) ALORS
// Suppression du répertoire
SI PAS fRepSupprime(MonRépertoire,frRécursif) ALORS
Erreur(ErreurInfo)
FIN
// Attente
Multitâche(100)
Info("Création de :",MonRépertoire)
// Création nouveau répertoire
SI PAS fRepCrée(MonRépertoire) ALORS
Erreur(ErreurInfo)
FIN
FIN
_________________________________________________________________________
Remarque: En utilisant ce code, le dossier n'est pas supprimer.
D'après l'erreur retournée, il semble que ce soit un problème de droit d'accès. Mais je suis Administrateur local.
Comment palier à ce problème?
Merci d'avance.
Nicolas ROBIN
Je ne crois pas qu'on puisse supprimer le répertoire TIF, meme en étant admin.
Un moyen serait de lister tous les fichiers / répertoires contenus dans le TIF, et de faire une procédure récursive pour supprimer les fichiers /
répertoires. Par contre, il faut savoir que certains fichiers risquent d'etre vérouillés par le systeme, et donc de ne pas pouvoir etre supprimés (a
prendre en compte dans la procédure).
Bon dev
--
Lionel
mailto:lionel.breil*NOSPAM*@gmail.com
(retirer *NOSPAM* pour m'écrire) |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|