Recherche d'un dossier, et création d'un dossier dans ce dosser...

Alors voila, je sais que beaucoup de sujets en parlent, de cette fameuse recherche de dossier..
Quand je recherche un dossier directement dans "C:\"
J'utilise :

dim fichier, FSO
Set FSO = CreateObject("Scripting.FileSystemObject" )
const forreading = 1, forwriting = 2, forappending = 8
recherche = "fichier à chercher"
ShowSubfolders FSO.GetFolder("C:\" ), recherche

Sub ShowSubFolders(Folder, recherche)
For Each Subfolder in Folder.SubFolders
If Subfolder.name = recherche Then
Wscript.Echo Subfolder.name
wscript.quit
Else
ShowSubFolders Subfolder, recherche
End If
Next
End Sub

Pourtant, j'ai beau faire, j'ai toujours une erreur de "permission" quand je cherche un dossier profondément comme dans :
"C:\Fichiers\..."
et que je met comme dossier source "C:\"

Quelqu'un pourrait m'aider svp??

Mince ! comme cet la premiere fois que je demande quelque chose, je savais pas
exactement comment faire... J'ai cherché mais j'ai pas trouvé le thème"vbs"
Bref, la commande on error resume next permet de continuer la recherche?

Parce que à chaque fois que je cherchais un dossier qui n'était pas directement dans "C:\" mais
dans un dossier de "C:\" j'avais une erreur...

Dans le code, ou est stipulé le nom du dossier a chercher?

Ohhhh ! C'est bon j'ai compris !! Merci bcp Jean-Marc! Depuis le temps que je cherchais en vain sur les innombrables débats là dessus ! Merci encore

Merci beaucoup !!! Par contre j'ai encore un pti pb récursif...
J'obtiens une boucle sans fin alors que j'ai stipulé "wscript.exit" :

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

Else
ShowSubFolders Subfolder, recherche
End If
Next
End Sub

Tu peux m'aider stp?

Oui ahah, jme suis rendu compte que j'avais été tro vite ...
En tout cas merci pour toutes ces réponses ! Je ne connaissais pas le "exit for"..
Si j'abusais je poserai une dernière question... Car là, je suis encore sur un
"paradoxe".
Je voudrais faire en sorte que quand le dossier recherché à été trouvé,
un dossier (différent) 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