Problème avec la fonction Dir

Version imprimable

[RESOLU]Problème avec la fonction Dir

C'est simple. Je vérifie si la base de données dbTest.mdb existe, le programme me renvoie qu'il existe alors que non. Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub bou_creation_Click()
 
    Dim i As Integer
    Dim intRetour As Integer
 
    If Dir(FONCTION_CHEMIN_COURANT(GstrNomDb)) <> " " Then    
        intRetour = MsgBox("La base de donnée existe déjà" & vbCrLf & _
        "Voulez vous la recréer ??", vbInformation + vbYesNo, _
        "Basde de donnée existante")
      Else
        ' ...
    End If           
 
End Sub

Merci d'avance.

12/10/2008, 21h14
ucfoutu
Bonsoir,
ma manière de te répondre ...
Ici, je vérifie l'existence di fichier "d:\essai.txt", que ce fichier soit caché ou non ...
Code:

1 2 3 4 5 If Dir("d:\essai.txt", vbnorml Or vbHidden) <> "" Then MsgBox "existe" Else MsgBox "n'existe pas" End If
un chemin est composé d'un répertoire, suivi d'un "\", suivi d'un nom de fichier...
J'ignore par ailleurs où tu as pêché ta syntaxe de dir ( If Dir(FONCTION_CHEMIN_COURANT(GstrNomDb)) )
As-tu installé la MSDN ??????
13/10/2008, 07h02
SfJ5Rpw8

b'jr,

c'est une erreur de copier/coller ou tu as bien un espace ici ;

Code:

Dir(FONCTION_CHEMIN_COURANT(GstrNomDb)) <> " "

entre les 2 guillemets, si oui enlève le ;)
17/10/2008, 07h26
jacko842

Merci. Je n'avais pas fait attention. Je vais utiliser le vbNullString.
22/10/2008, 04h15
AlainTech

Après 128 messages, tu ne sais toujours pas utiliser le bouton :resolu:?