Verification de l'existence d'un répertoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 32 480 fois - Téléchargée 82 fois

Contenu du snippet

/////////////////////////////////////////////////
But : vérifier l'existence d'un répertoire donné
/////////////////////////////////////////////////

Source / Exemple :


Sub Verif()

Dim MyPath As String 'Définition des variables
Dim myName As String

MyPath = "c:\windows"  ' On initialise la variable

If (myName = Dir(MyPath, vbDirectory)) = vbEmpty Then 'On teste 
l'existence du répertoire...
        MsgBox " Le répertoire " & Chr(34) _
            & MyPath & Chr(34) & " existe bien !", _
                vbInformation
            
            Else
            
        MsgBox " Le répertoire " & Chr(34) _
            & MyPath & Chr(34) & " n'existe pas !", _
                vbExclamation
            
End If
End Sub

Gerome
www.multimania.com/gedd123 (Freewares VB & QB)

Conclusion :


Enjoy :)

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
54 -
Le test :
(myName Dir(MyPath, vbDirectory)) vbEmpty

n'a aucune logique

il fonctionne juste parce que ca reviens a faire :
If ("" Dir(MyPath, vbDirectory)) 0
If ("" Dir(MyPath, vbDirectory)) False
soit :
If Dir(MyPath, vbDirectory) <> ""
cs_buzzo
Messages postés
30
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006
-
C'est cool merci bien pour cette source (et pour la correction)!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.