Bonjour,
Quelqu'un peut-il me donner le code source en D7 pour effacer tous les fichiers que contient un répertoire ?
Bonnes vacances pour ceux qui les attendent encore...
Mille merci d'avance
Colorid
Bonjour,
Quelqu'un peut-il me donner le code source en D7 pour effacer tous les fichiers que contient un répertoire ?
Bonnes vacances pour ceux qui les attendent encore...
Mille merci d'avance
Colorid
Cà + DeleteFile
Modérateur Delphi
Le guide du bon forumeur :
- Les règles du forum tu liras
- La FAQ et les tutoriels tu consulteras
- La fonction Recherche tu utiliseras
- Google tu vénèreras
__________
Rayek World : Youtube Facebook
Salut,
As-tu cherché dans la FAQ ?
Il y a :
- Comment lister les fichiers d'un répertoire ?
- DeleteFile pour la suppression de fichiers ( pour plus d'aide).
A+
Bonjour,
Voici le code utilisé :
Comme il s'agit de récrire un fichier du même nom dans le même répertoire, AssignFile provoque systématiquement une erreur d'entrée/sortie
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 if FileExists(FileName) then DeleteFile(FileName); AssignFile(F,FileName); Rewrite(F);
A+
Euh, ShFileOperation et FO_DELETE tu peux faire un delete sur *.*, cela vide le contenu du dossier !
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Grand merci
Utiliser ShFileOperation et FO_DELETE ... peut-être, mais comment ?
Un exemple code source me placerait sur la bonne voie.
J'ai même essayer pour listre le fichiers à effacer ;
Rien, n'y fait, les fichiers listés sont ceux du répertoire de l'exécutable...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 ChDir('Data\CALIB'); FileListbox.ApplyFilePath(ExtractFilePath(Application.exeName)+'Data\CALIB'); FileListbox.Directory:=ExtractFilePath(Application.exeName)+'Data\CALIB';
Aidez-moi
2em position en cherchant avec le forum ....
http://www.developpez.net/forums/d93...ement-fichier/
Le reste de la liste où chercher
http://www.developpez.net/forums/sea...archid=6171637
Modérateur Delphi
Le guide du bon forumeur :
- Les règles du forum tu liras
- La FAQ et les tutoriels tu consulteras
- La fonction Recherche tu utiliseras
- Google tu vénèreras
__________
Rayek World : Youtube Facebook
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager