Le FSO n'est pas du VB mais du VBS !! Mettre du VBS dans du Vb c'est comme mettre du gasoil dans une moto ! Dire qu'il ne faut pas de DLLs supplémentaires ?!! Faut IE 5 non ? donc....j'ai netscape j'ai enlevé IE et et... Ca fonctionne pas comme c'est dommage.

Sinon ton code est pas mal azerty25, mais essais de supprimer le Do while c'est une boucle inutile, il y a des fonctions pour rechercher la position de caractére (ou chaine) comme InstrRev.

I = InStrRev(UCase(pchemin), "\")
Left(pchemin, I)

Sinon il y a des dlls qui sont faite pour ça et qui font mieux que le FSO et en bcp plus rapide et intégré au systéme Windows faut les trouver. ;o)

@+