vérification d'existence d'un dossier

salut à tous,

j'ai un navigateur dans un de mes formulaires, qui sur l'evenement sur activation de mon formulaire, execute ce code:

Code:

---

1 2 3 4 5

Dim sta as string sta = Me.N°.value WebBrowser1.Visible = True WebBrowser1.Navigate "\\Lenovo-01\sfca travail\DossiersAccess\" & sta

---

Le probleme c'est que quand le dossier n'existe pas, il rame.
Je voudrais faire une vérification de l'existence du dossier et faire un exit sub si il n'existe pas ou msgbox"voulez-vous créer le dossier car il n'existe pas.
Merci pour votre aide

en fait il fallait rajouter dans le code

Code:

---

1 2 3 4 5 6 7

Dim fso As New FileSystemObject If fso.FolderExists("\\Lenovo-01\sfca travail\DossiersAccess\" & sta) Then WebBrowser1.Visible = True WebBrowser1.Navigate "\\Lenovo-01\sfca travail\DossiersAccess\" & sta Else MsgBox ("Il n'existe pas de dossier pour cette personne ou cette entreprise. veuillez en créer un.") End If

---