[R] Effacement des dossiers si vides

[Gnifrus]

Bonjour,

Je recherche une méthode ou une piste pour faire la chose suivante :
Je dispose d'un dossier, qui a une arborescence de dossiers et fichiers que je ne connais pas à l'avance, sur n profondeur.
Je souhaiterai effacer les dossiers vides, ou les dossiers qui contiennent des dossiers vides....etc...

En gros, ne conserver que arborescence des dossiers qui contiennent des fichiers, ou dit différemment, seuls les fichiers m’intéressent dans cette arborescence, donc je veux virer tous les autres dossiers inutiles...

Je pensais qu'il fallait faire d'abord un tableau de cette arborescence, pour commencer à traiter les dossiers les plus "éloignés" du dossier de base, et ainsi de suite....

Vous en pensez quoi ? Que me donneriez vous comme solution, piste ou autre ?

Merci d'avance pour votre aide, car je suis un petit peu bloqué !
Bonne journée,

Gnifrus.

[DimVar]

Bonjour,


Je pense qu'une recherche avec "_FileListToArray recursive" sur le forum anglais t'aidera.

Cdlt.

[SurPriseS]

Code : Tout sélectionner

#include<Array.au3>
#include<FileListToArrayNT.au3>

$start = 0

while $start = 0

    $ar_Array = _FileListToArrayNT ("Z:\backup Cobian", "*.*", 2, 2, True, "Temp")

        For $i = 1 to $ar_Array[0]
        sleep(10)
          $start = 1

          $size = DirGetSize($ar_Array[$i], 1)

          if $size[0] = 0 and $size[1] = 0 and $size[2] = 0 Then
               DirRemove($ar_Array[$i])
               $start = 0
          EndIf

        Next

WEnd
 

Bon, c'est un truc que j'avais fait à l'arrache un jour, je pense que c'est très très moche, mais bon, ça marche !

L'include : http://www.autoitscript.fr/forum/viewto ... 893#p34893

[Tlem]

@DimVar
Pourquoi renvoyer vers le forum Anglais, alors qu'il y a tout ce qu'il faut ici :
http://www.autoitscript.fr/forum/viewto ... f=21&t=479

@SurPriseS
Il n'est pas raisonable de présenter un code qui fait appel à une fonction non standard d'AutoIt sans en indiqué la source ou le code ...

[Gnifrus]

Merci à tous pour votre aide !
Je ne connaissais pas ces fonctions...
Je vais essayer d'exploiter cette piste dès lundi, au boulot.
Dans l'attente, je laisse mon topic ouvert et vous tiendrai au courant !

Un grand grand merci encore !

Gnifrus.

[SurPriseS]

@SurPriseS
Il n'est pas raisonable de présenter un code qui fait appel à une fonction non standard d'AutoIt sans en indiqué la source ou le code ...

J'étais au taff, je savais bien que je zappais un morceau
J'ai édité

[Gnifrus]

Bonjour,

Merci beaucoup !
J'ai essayé et ça marche impec !

Vous m'avez encore sauvé d'un mauvais pas !!!

@bientôt, (je n'en doute pas... )

Gnifrus.

[Gnifrus]

Bonjour,

Je me permets de relancer mon sujet sur l'effacement des dossiers vides, car lorsque j'ai voulu réessayer le code de SurPriseS, je me suis aperçu qu'il générait une erreur "Subscript used with non-Array variable" dans certaines situations, notamment lorsque le dossier dans lequel rechercher les dossiers vides, ne comportait aucun dossier ou que des dossiers vides.

J'ai cherché toute la journée, mais là, je jette l'éponge !!!

Y aurait-il une âme charitable pour me venir en aide ?

Merci par avance,
Bonne soirée,

Gnifrus

[parazitenew]

Cette erreur signifie que l'Array est vide, pour éviter cette erreur ajoute ceci après que l'Array soit crée:

Code : Tout sélectionner

If Not @Error Then
    Execute moi le reste du script
Else
    Tu sors
EndIf

Si il n'y a pas d'erreur, dans ce cas, le script continue, sinon il passe son chemain.

[Gnifrus]

Bonjour,

Merci parazitenew !

Ta solution fonctionne parfaitement !
J'avais bien essayé avec un "If Not @Error Then..." mais comme un c.., j'avais mis un "Return" pour sortir de la boucle au lieu d'un "ExitLoop" !
Quel boulet !

Merci encore,
Bonne continuation et... à bientôt,

Gnifrus.