IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

Comment effacer tous les fichiers d'un répertoire


Sujet :

Langage Delphi

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Points : 182
    Points
    182
    Par défaut Comment effacer tous les fichiers d'un répertoire
    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

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut


    + DeleteFile

  3. #3
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Points : 4 935
    Points
    4 935
    Par défaut
    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+

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Points : 182
    Points
    182
    Par défaut Voir le code utilisé :
    Bonjour,

    Voici le code utilisé :
    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);
    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

    A+

  5. #5
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 577
    Points : 25 225
    Points
    25 225
    Par défaut
    Euh, ShFileOperation et FO_DELETE tu peux faire un delete sur *.*, cela vide le contenu du dossier !

  6. #6
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2003
    Messages
    803
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2003
    Messages : 803
    Points : 182
    Points
    182
    Par défaut Je ne m'en sort toujours pas
    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 ;
    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';
    Rien, n'y fait, les fichiers listés sont ceux du répertoire de l'exécutable...

    Aidez-moi

  7. #7
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    5 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2005
    Messages : 5 235
    Points : 8 504
    Points
    8 504
    Par défaut


    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Lazarus] [Linux] Effacer tous les fichiers d'un répertoire
    Par rasmus dans le forum Lazarus
    Réponses: 5
    Dernier message: 04/05/2011, 14h47
  2. Réponses: 5
    Dernier message: 23/06/2008, 14h47
  3. Réponses: 2
    Dernier message: 01/11/2007, 11h07
  4. Réponses: 2
    Dernier message: 15/08/2006, 16h43
  5. Réponses: 4
    Dernier message: 24/09/2004, 10h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo