Tester existence de 2 dossiers, si n'existent pas > msgbox

Bonjour à tous,


Je viens vers vous afin de trouver un petit coup de pouce s'il vous plait.

Je cherche donc à tester l'existence de 2 dossiers et dans le cas où ils n'existeraient pas, une msgbox apparaitrait...

J'ai pu tester le premier dossier et afficher la msgbox si il n'existait pas mais pas du tout pour le deuxième.

Code:

---

1 2 3 4 5 6

Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FolderExists("C:\Program Files\Dossier") Then WScript.Timeout = 30 msgbox " existe pas "   End If

---

Merci d'avance !

:salut:
testez cette fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

VerifDossierExiste "C:\Program files" VerifDossierExiste "C:\Program files\Dossier" VerifDossierExiste "C:\Program files\Notepad++" VerifDossierExiste "C:\Program files\Microsoft Visual Studio 8"   Function VerifDossierExiste(Chemin) Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Chemin) Then MsgBox qq(Chemin) & " ===> Existe",64,qq(Chemin) & " Existe" else MsgBox qq(Chemin)& " ===> n'existe pas",48,qq(Chemin)& " n'existe pas" End If End Function   Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function

---

Salut

Code:

---

1 2 3 4 5

Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FolderExists("C:\Program Files\Dossier") And Not objFSO.FolderExists("C:\Program Files\DossierAutre") Then WScript.Timeout = 30 MsgBox "Aucun des 2 dossiers n'existent", vbInformation End If

---

Merci beaucoup !!!!!!!! :ccool: