Discussion :

[Décibel]

Bonjour,

J'utilise le code suivant :
Chem est le cemin ex : C:\dossierA\

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set fs = Application.FileSearch
  With fs
      .LookIn = chem
      .Filename = "*.*"
      If .Execute = 0 Then RmDir (chem)
   End With

pour savoir si un dossier est vide avant de le supprimer avec la commande RmDir, mais voila ma question :
Si le dossier contient un sous-dossier ce code ne le trouve pas et j'ai une erreur.
Que dois je rajouter pour que ce code trouve aussi les sous-dossier ?

merci !

[LedZeppII]

Bonjour,

A tester ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Set fs = Application.FileSearch
  With fs
      .NewSearch                     ' Initialisation
      .LookIn = chem
      .SearchSubFolders = True       ' sous-dossiers = oui
      .Filename = "*.*"
      If .Execute = 0 Then RmDir (chem)
   End With

A+

[Décibel]

Merci pour ta réponse, j'avais déjà essayé mais ça ne marche pas, en fait j'ai l'impression que le fait de mettre : SearchSubFolders = True ne permet qu'une recherche d'un fichier dans un sous dossier, pour autant cela ne modifie pas .Execute qui reste à 0 si il ya des sous dossiers...
Je m'en suis sortit en gérant l'erreur sur Rmdir, puisque le code VB ne peut pas supprimer un dossier si il contient un objey (fichiers ou dossiers)..

Merci !