Réponse acceptée !
Pour ceux qui sont dans le même cas que moi, voilà un bout de code qui gère ça:
clearAllDir(path1)
RmDir(path1)
clearAllDir(path2)
RmDir(path2)
..........
Private Sub clearAllDir(ByVal startDir As String)
Dim files As String
For Each files In Directory.GetFiles(startDir, "*.*")
IO.File.SetAttributes(files, FileAttributes.Normal)
File.Delete(files)
Next
End Sub
BadBoy38
--==OPEN.SOURCES.FREE.FR==--