Bonjour,
J'utilise le code suivant :
Chem est le cemin ex : C:\dossierA\
pour savoir si un dossier est vide avant de le supprimer avec la commande RmDir, mais voila ma question :
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
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 !
Partager