Pb de condition

Question

Salut

J'ai le probleme suivant

Au démarrage de mon programme je veux vérifier si un répertoire ds le répertoire courant existe donc je mets ça

If Dir(App.Path & "\images") = "" Then
    
    MkDir App.Path & "\images"

End If

Le pb c que quand il n'existe pas il me le crée sans pb

Mais si il existe déja il ve le créer et ça fé une erreur

Je comprends pas puisque ds le if je lui dit bien de le créer seulement si il existe pas !!!

Enfait il execute le mkdir meme si la condition n'est po remplie!!

Help please

Merci
@sterik

crenaud76 · Answer

if Dir(App.Path & "\images", vbDirectory) = "" Then
MkDir App.Path & "\images"
End If


Toi, tu testais l'existance d'un fichier, pas d'un répertoire !
A noter qu'avec le codeque je t'ai donné, tu testes l'existance d'un répertoire OU d'un fichier
Christophe R.

cs_JMO · Answer

pour tester l'existence d'un répertoire:

wRepSrce1 = "c:\xxxx\xxx"
Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(wRepDest1) Then
   Set f = fso.CreateFolder(wRepDest1)
       msgBox "Création du dossier "&f&" effectuée.",vbInformation
       fso.MoveFile wSrce1, wRepDest1
   Else
       msgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest1&" existe déjà."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End if

Pb de condition

2 réponses

Discussions similaires