Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() MsgBox Dir1.Path & "\" & File1.FileName End Sub
Télécharger le zip
il y a une erreur : il se peut que le chemin soit "C:" et tu rajoute "" donc ça donne "C:\fichier.ext". Il faut donc faire un petit test :if right(dir1.path,1)="" thenchemin = ""elsechemin= ""end ifchemin étant bien entendu une variable de type string que tu insere entre dir1.path et file1.filename.
relit ce que tu as ecrit ca veux rien dire
hou hou hou !!!trop con !
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 620 279 membres 546 nouveaux aujourd'hui 15 501 membres club