Discussion :

[popofpopof]

bonjour

j'ai plusieurs problèmes mon 1er :
je souhaite supprimer TOUT les fichiers et dossier qui sont dans "C:\a\Operation\" mais je ne veux pas supprimer le dossier Operation, donc apres l'exécution du script le dossier Operation doit être vide
j'ai essai sa mais sa me supprimer le dossier complet comment faire?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject")
sauve = "C:\a\Operation\"
set oFld = oFSO.GetFolder(sauve)
oFld.Delete False

Mon deuxième problème est ici : http://www.developpez.net/forums/sho...d.php?t=435432

[SfJ5Rpw8]

deux solution tu utilise ton code puis tu crée à nouveau le répertoire effacer...


sinon tu parcours les objets "subFolders" et "Files" de ton répertoire et tu les effaces un à un :
pour cela supprime la dernière ligne de ton code et rajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'Parcours et efface tous les sous répertoires
For Each oSubFld in oFld.SubFolders
  oSubFld.Delete false
Next
'Parcours et efface tous les fichiers directement sous le répertoire
For Each oFile in oFld.Files
  oFile.Delete False
Next

[popofpopof]

merci bcp sa marche super bien comme je voulai

dis moi tu peux m'aide sur
http://www.developpez.net/forums/sho...d.php?t=435432

merci encore