[RESOLU] ExamineDirectory() répétition ....

[omega]

Bonsoir,

Quand on connait le nombre de dossiers à copier, pas de problème, mais quand on ne connait pas ce nombre?
Combien de fois doit on écrire cette instruction ExamineDirectory() ??
Y a t il un moyen plus simple (plus court) de parcourir tous les dossiers sans réécrire n fois cette instruction?

Merci

Code : Tout sélectionner

Source$="e:\"
Dest$="f:\"

If ExamineDirectory(0,source$)
   While nextDirectoryEntry(0)
        If DirectoryEntryType(0)=#DirectoryEntryDirectory ;on suppose l'absence des "." et des ".."
           Dossier$=DirectoryEntryName(0)
           ;1er sous-dossier
           Dir1$=source$+dossier$+"\"
           If ExamineDirectory(1,dir1$)
              While nextDirectoryEntry(1)
                   If DirectoryEntryType(1)=#DirectoryEntryDirectory 
                      Dossier$=DirectoryEntryName(1)
                      ;2ème sous-dossier
                      dir2$=dir1$+"\"+dossier$+"\"
                      If ExamineDirectory(2,dir2$)
                         While nextDirectoryEntry(2)
                           If DirectoryEntryType(2)=#DirectoryEntryDirectory 
                              Dossier$=DirectoryEntryName(2)
                              ;3ème sous-dossier
                              .....
                              .... ET AINSI DE SUITE JUSQU'A L'INFINI ....
                            Endif   
                          Wend
                          FinishDirectroy(2)
                     EndIf
                 Endif   
              Wend
              FinishDirectroy(1)
            EndIf
         Endif   
      Wend
      FinishDirectroy(1)
 EndIf

[Ar-S]

Falsam t'a donné un lien dans ce topic : http://www.purebasic.fr/french/viewtopi ... =1&t=15813
Dans ce lien tu as la réponse à ta question avec la procédure ParseDirectory().

[omega]

Excellent ! ParseDirectory() ça marche.

Merci à tous