Supprimer fichiers

Je veux supprimer complètement le contenu d'une disquette, la commande Kill ("A:\*.*") fonctionne mais pas si il y a des répertoires, quelle est la solution?

'Lu bon voila se que je fait, il ya a 36000 facon donc tu fait comme tu veu ;) :
'Tu met une dirlistbox dans ta form et tu coche dans : projet >> 'reference >> microsoft scripting runtime et dans la form tu met le code :

Public Sub SupprA()
Dir1.Path = "a:\"
For a = 0 To Dir1.ListCount - 1
Dir1.ListIndex = a
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.DeleteFolder Dir1.List(Dir1.ListIndex), True
Next
Kill "a:\*.*"
End Sub

'ensuite tu lapppelle :
SupprA
'et voila ;) aller bon courage ;) ++