Re: Comment effacer le contenu d'un dossier ?

[Arnaud Nicolet <anic297 at mac dot com>]

Le 28 nov. 07 à 15:35 soir, Powel a écrit:

> Bonjour,
>
> Je me demande quelle est la méthode la plus rapide pour effacer le  
> contenu d'un dossier.
> Quelqu'un a-t-il une idée ?
>
> Powel
Il y a deux méthodes:

la première, par récursivité:

Sub DeleteItem(f As FolderItem)
dim g As FolderItem
dim i As integer

for i=1 to f.count
g=f.TrueItem(i) 'Utiliser TrueItem pour éviter d'avoir une boucle  
infinie si jamais un alias est placé dans son original.
if g.Directory then
DeleteItem g
end if
g.delete
next
end sub

Le problème avec cette méthode est qu'elle peut provoquer une erreur  
de type "StackOverflowException" (si trop de dossiers sont imbriqués).
Une autre méthode consiste à utiliser une boucle et des variables de  
type tableau (on ajoute le dernier dossier trouvé dans une variable du  
genre MyFoldersToTreat() As FolderItem). Je suis en train de  
rechercher dans mon code (de tête, ce serait trop long à retrouver).  
Quand j'aurai trouvé, je vous ferai une nouvelle réponse.