Suppression d'un dossier dans une procédure de recherche

Signaler
Messages postés
90
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
25 mai 2013
-
Messages postés
90
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
25 mai 2013
-
J'aimerai poser une petite question... Car là, je suis encore sur un
"paradoxe".
Je voudrais faire en sorte que quand un dossier recherché à été trouvé,
un dossier (différent du premier) soit supprimé. J'utilise alors le "fso.deletefolder".
Pourtant, dans la procédure sub, ca ne marche pas :

Sub ShowSubFolders(Folder, recherche)
For Each Subfolder in Folder.SubFolders
On Error Resume Next
If Subfolder.name = recherche Then
ObjShell.Exec CheminWinRar & " a -r " & chr(34) & Subfolder.path & "" & nomduprojet & ".rar" & chr(34) & " " & chr(34) & RepSource & chr(34)

suppression = enregistrement & "" & nomduprojet
set fso=createobject("scripting.FileSystemObject")
fso.deletefolder suppression

exit for
Else
ShowSubFolders Subfolder, recherche
End If
Next
End Sub

Alors que dans un programme de suppression de dossier, ca fonctionne !!

dossier = inputbox ("Dossier à supprimer : ","Suppression d'un dossier","C:")

set fso=createobject("scripting.FileSystemObject")
fso.deletefolder dossier

Quelqu'un pourrait m'aider s'il vous plait?

2 réponses

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonsoir

Hier, je t'ai demandé de mettre des msgbox afin de contrôler le contenu des 3 variables.
Dans ta sub, d'où sort ta variable enregistrement ???

jean-marc
Messages postés
90
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
25 mai 2013

non je suis sur de mes variables, cest la premiere chose ke jai vérifié des 100aines de fois !!! Jcomprends pas