Discussion :

[noder347]

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 :

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

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 !

[hackoofr]

testez cette fonction :

Code :

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

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

[ProgElecT]

Salut

Code :

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

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

[noder347]

Merci beaucoup !!!!!!!!