/////////////////////////////////////////////////
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 :)
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.