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 supprimer tous les fichiers d'un répertoire ?


Sujet :

Langage Delphi

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    51
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 51
    Points : 42
    Points
    42
    Par défaut Comment supprimer tous les fichiers d'un répertoire ?
    Ola,

    Ma demande est simple et précise:
    je veux supprimer tous les fichiers contenus dans un répertoire bien précis.

    Dans l'aide Delphi, j'ai vu Delete, mais ca semble pas etre ca, ni DeleteFile. DAns le FAQ, ils parlent de suprrimer un répertoire carrément, mais je voudrais le garder quand meme.

    Donc il faut que je le parcours et efface chaque fichier un à un ... Vous avez une idée, ou plus ??


    merki

  2. #2
    Membre confirmé
    Avatar de lil_jam63
    Profil pro
    Inscrit en
    Janvier 2004
    Messages
    447
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2004
    Messages : 447
    Points : 600
    Points
    600
    Par défaut
    En utilisant une fonction récursive comme celle là par exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
     
    function DeleteDirectory(aDirectoryName : string; aContent : boolean = true) : boolean; 
    var 
      DirInfo: TSearchRec; 
      r : Integer; 
    begin 
      result := true; 
      if aContent then 
      begin 
        r := FindFirst(aDirectoryName + '\*.*', FaAnyfile, DirInfo); 
        while (r = 0) and result do 
        begin 
          if &#40;DirInfo.Attr and FaVolumeId <> FaVolumeID&#41; then 
          begin 
            if &#40;DirInfo.Attr and FaDirectory = FaDirectory&#41; and 
               &#40;DirInfo.Name <> '.'&#41; and 
               &#40;DirInfo.Name <> '..'&#41; then 
              result &#58;= DeleteDirectory&#40;aDirectoryName + DirInfo.Name&#41; 
            else if &#40;DirInfo.Attr and FaDirectory <> FaDirectory&#41; then 
              result &#58;= sysUtils.DeleteFile&#40;aDirectoryName + '\' + DirInfo.Name&#41;; 
          end; 
          r &#58;= FindNext&#40;DirInfo&#41;; 
        end; 
        SysUtils.FindClose&#40;DirInfo&#41;; 
      end; 
      if Result then 
        result &#58;= RemoveDir&#40;aDirectoryName&#41;; 
    end;
    ----------------------------------------------------
    Avant de poster, pensez à utiliser les différents outils à votre disposition:
    Google, la FAQ et le moteur de recherche.

  3. #3
    Membre chevronné
    Avatar de Clorish
    Profil pro
    Inscrit en
    Juin 2003
    Messages
    2 474
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 2 474
    Points : 2 158
    Points
    2 158
    Par défaut
    Ou en appelant les commandes DOS
    Certaines options doivent permetre de gerer la recursivité.
    On passe du temps a vous repondre, alors soyez sympas, passez du temps ..... a vous relire !
    --
    Pourquoi tant de haine pour cette pauvre aide Delphi ????
    Aiiimezzz laaaaa .... Si-Non-Cham-Pi-Gnon !!!
    --
    Pour plus de Renseignements : Venez me rejoindre sur Msn .... Promis je mords pas

  4. #4
    Expert éminent
    Avatar de qi130
    Homme Profil pro
    Expert Processus IT
    Inscrit en
    Mars 2003
    Messages
    3 897
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Expert Processus IT
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2003
    Messages : 3 897
    Points : 6 024
    Points
    6 024
    Par défaut
    ou en le supprimant puis en le recréant....
    "Il n'y a pas de bonnes réponses à une mauvaise question." (M. Godet)
    -----------------------
    Pensez à cloturer votre sujet - Aucune réponse aux sollicitations techniques par MP
    Usus magister est optimus

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    51
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 51
    Points : 42
    Points
    42
    Par défaut
    nickel, lil_jam63

    C vrai que je pouvais aussi tout betement supprimer et recréer... J'y ai pas pensé...
    Par contre ta dernière ligne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     if Result then 
        result &#58;= RemoveDir&#40;aDirectoryName&#41;;
    a été radicale sur mon répertoire, il a bien disparu, enfin j'avais fait une copie.

    Bref, c cool, ciao

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

Discussions similaires

  1. Comment effacer tous les fichiers d'un répertoire
    Par colorid dans le forum Langage
    Réponses: 6
    Dernier message: 26/07/2010, 14h55
  2. Comment supprimer tous les répertoires cachés ?
    Par raton_laveur dans le forum Windows XP
    Réponses: 2
    Dernier message: 13/01/2009, 13h36
  3. Réponses: 5
    Dernier message: 23/06/2008, 15h47
  4. Réponses: 1
    Dernier message: 24/08/2007, 17h42
  5. Réponses: 3
    Dernier message: 22/05/2006, 18h00

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