Scusez moi, d'habitude c moi qui donne mon propre code, mais la g trop la flemme
Alors, voila en VB :
' récupéré sur
'http://www.codeguru.com/vb/openfaq/comments/148.shtml
' Désolé :-p
Sub deldir (path As String)
Dim tempvar As String, pos As Integer
pos = 0
tempvar = Dir(path + "\*.*", 22)
Do While tempvar <> ""
If tempvar <> "." And tempvar <> ".." Then
If (GetAttr(path + "\" + tempvar) And 16) = 0 Then
SetAttr path + "\" + tempvar, 0
Kill path + "\" + tempvar
Else
deldir (path + "\" + tempvar)
tempvar = Dir(path + "\*.*", 22)
End If
End If
tempvar = Dir
Loop
RmDir path
End Sub
Pas trop dur mais bon, ca peut toujours servir