Tester si un REPERTOIRE existe. Résolu

Question

Bonjour &#224; tous !
Je d&#233;sire tester si un repertoire existe lorsque je clique sur un bouton, j'ai donc le code suivant :

Private Sub Command1_Click()
Dim reponse As Integer
If Dir("c:/nouveau_dossier/") <> "" Then
         MsgBox ("Existe")
      Else
         MsgBox ("Existe pas")
         reponse = MsgBox("Creer ?", vbInformation + vbYesNo, "Creer")
         If reponse = vbYes Then
         MkDir ("c:/nouveau_dossier")
         Else: End
        End If
End If
End Sub

Mon soucis est qu'apr&#232;s avoir cr&#233;&#233;e mon repertoire, si je relance l'application il ne le detecte toujours pas et me demande d'en creer un alors qu'il est deja creer. Par contre si je teste si le repertoire Windows ou Program Files, il me confirme bien que le dossier existe. QQn aurait-il une solution ou un autre code svp ?!

Merci d'avance

PCPT · Accepted Answer

salut [VB6] Option Explicit ' Private Declare Function PathFileExists Lib "shlwapi.dll" _ Alias "PathFileExistsA" _ ByVal pszPath As String) As Long ' ' Private Sub Command1_Click() If CBool(PathFileExists("c:/nouveau_dossier/")) Then MsgBox "c'est ok ;)", 32 Else Dim lRep As Long lRep = MsgBox ("n'existe pas, créer ??", vbInformation + vbYesNo, "Creer") If lRep = vbYes Then MkDir ("c:/nouveau_dossier") Else Unload Me End If End If End Sub Coloration syntaxique automatique [AFCK] ps : note bien que le END a été remplacé. il n'est que source d'ennuis pour tes futurs projets (VB bien sûr) PCPT [AFCK]

cs_jeanmarc · Answer

bonsoir,
exemple en vbs (valable en vba) pour tester la presence d'un path

Dim wRepDest1, fso
wRepDest1 = "c:\Archive-xxxx"

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then
   Set f = fso.CreateFolder(wRepDest1)
       msgBox "Cr&#233;ation du dossier "&f&" effectu&#233;e.",vbInformation
   Else
       msgBox "Attention:"&vbCrLf&"Le r&#233;pertoire "&wRepDest1&" existe d&#233;j&#224;."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archiv&#233;s",vbCritical
End if

PCPT · Answer

manque une parenth&#232;se ( devant le ByVal....

econs · Answer

ou bien 



Dir("c:/nouveau_dossier/",vbDirectory)




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ephy · Answer

Merci pcpt pour ta r&#233;ponse rapide est simple, qui m'illumine.


A bientot !

Tester si un REPERTOIRE existe.

5 réponses

Discussions similaires