pas de problème ca marche aussi ,
Il est à savoir que windev ne possède pas l'équivalent du For Each que je trouve fort interressant car il parcours automatiquement les objets d'une collection, indispensable dans certain cas j'en ai fait les frais lors de la manipulation des agents microsoft.
dans la plupart des cas malgré tout on peut contourner cette méthode en récupérant le nombre d'objets contenu dans la collection, c'est ce que nous allons faire.
oFso est une object automation dynamique
oRep est un objet automation dynamiqueo
nRep est un entier
i est un entier
oSousRep une chaine
Fso = allouer un objet automation"Scripting.FileSystemObject"
oRep = oFso>>GetFolder(<Chemin complet de ton répertoire>)
nRep = oRep>>GetFolder>>Count()
POUR i = 1 à nRep
oSousRep = oRep>>SubFolders(i)>>Name()
SI <Ma condition est Ok> ALORS
oRep>>SubFolders(i)>>Delete(vrai)
FIN
FIN