Erreur en VB 6 path/file error acces

Bonjour,
je suis en train de programmer un logiciel un pet spécial ^^ je ne vous donne pas le principe car cela n'est pas utile je pense pour répondre a ma question, je demande au programme de créer un dossier au chargement de la form, ce denier le fait
, mais je me suis dit si le fichier existe déjà il va pas le recréer, voici mon code :

Private Sub Form_Load()
If RepExist(App.Path & "\filelien") Then
MsgBox "le ficher existe !", vbExclamation, ""
Else
MkDir App.Path & "\filelien"
SetAttr App.Path & "\filelien", vbHidden
End If
End Sub

Private Function RepExist(strRep As String) As Boolean
If Dir(strRep, vbDirectory) <> vbNullString Then RepExist = True
End Function

tés simplement il m'affiche le debug a la ligne : " MkDir App.Path & "\filelien" " il me donne comme message d'erreur : path/file error acces.
j'ai tout essayé mais en vin l'erreur est bien la mais je ne sais pas comment la résoudre merci a l'avance .