Bonjour à tous.
Comment fait on pour virer un dossier qui n'est pas vide avec tout ce qu'il contient ??? J'ai testé des dizaine de codes sans jamais aucun succés !!!
Pouvez vous m'aider ???

Bonjour,
Je contourne le problème en générant un fichier dos
Je veux supprimer le dossier "Dossier exemple" et TOUS ses sous-répertoires

Debut:
ATTRIB -R -A -S -H "c:\Dossier exemple\" (pour effacer les attributs)
RD /s /q "c:\Dossier exemple\"
if existe "c:\Dossier exemple\" goto debut
pour éviter

a notr que si je désire que le fichier dos se supprime lui-même, je rajoute

del "c:\temp\cmd.bat"  (le nom du fichier)

avec un peu de chance, ca répond à ta question
****************************************************************
remarque: pour accéder au dos, "Menu démarer" puis "Executer" puis taper "CMD" puis <Enter>

taper "HELP"
taper ATTRIB HELP
taper RD HELP

Salut

PrivateSub listeRepertoire(ByVal Path AsString)

Dim ListeDossiers(), ListeFichiers() AsObject

If Path <> "C:\System Volume Information"Then

ListeFichiers = Directory.GetFiles(Path)

If ListeFichiers.Length <> 0 Then

Dim j AsLong

For j = 0 To ListeFichiers.Length - 1

If Len(ListeFichiers(j)) < 260 Then

If Dir(ListeFichiers(j)) <> ""Then

File.SetAttributes(ListeFichiers(j), FileAttributes.Normal)

Delete_file(ListeFichiers(j))

EndIf

EndIf

Next

EndIf

ListeDossiers = Directory.GetDirectories(Path)

If ListeDossiers.Length <> 0 Then

Dim i AsLong

For i = 0 To ListeDossiers.Length - 1

listeRepertoire(ListeDossiers(i))

Next

EndIf

EndIf

EndSub

PrivateSub Delete_file(ByVal Path AsString)

OnErrorGoTo erreuhr

System.IO.File.Delete(Path)

erreuhr:

EndSubTu appel listeRepertoire(Le_chemin_de_ton_dossier) et ca le vide , apres tu na plus qua utiliser une methode pr suprimmer les dossiers vides


Si l'informatique été de l'alcool il y aurait des genies partout