Effacer un répertoire et tout son contenu

Commenter

Contenu du snippet

Ce code sert à effacer un répertoire ainsi que tous les sous répertoires et fichiers qu'il contient (comme windows, youpi!).

Source / Exemple : 


Public Function deldir(chemin As String) As Boolean
traitement:
deldir = False                                                       'indicateur de fonction
myname = Dir(chemin & "\*.*", vbDirectory)          'type de fichier rencontré
Do While myname <> ""
    If myname <> "." And myname <> ".." Then
        If (GetAttr(chemin & "\" & myname) And vbDirectory) = vbDirectory Then
            result = deldir(chemin & "\" & myname)
            If result = False Then
            Exit Function
            End If
            GoTo traitement
        Else
            Kill chemin & "\" & myname              'efface le fichier
        End If
    End If
    myname = Dir
Loop
RmDir chemin                                        'efface le répertoire
deldir = True                                         'sortie de la fonction
End Function

Conclusion :


Cette fonction doit être appelée avec le paramètre "chemin" (chaine de caractère), qui est le nom du répertoire à effacer: exemple : result = deldir(chemin) où result est une variable de type booléen.

les bugs: ne marche pas si un fichier ou un répertoire est en lecture seule.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (soulmanto)