Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 552 fois - Téléchargée 47 fois
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
Merci beaucoup!
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.