lancer une URL local avec des espaces dedans

Salut,
dans mon application j'ai un bouton qui lance dans le navigateur un fichier html local.
Sous internet explorer tout va bien, mais lorsque je teste avec Mozilla firefox il y a un probleme lorsqu'il y a des espaces dans l'url.
par exemple pour ouvrir avec firefox "C:\Documents and Settings\Administrateur\Bureau\index.htm"
ca ne marche pas parcequ'il y a des espaces dans l'adresse alors que si je fait 'c:\index.htm" cela marche.

donc j'ai essayé de remplacer les espace par %20:

Code:

---

1 2 3

cheminfichier = App.Path & "\html\index.htm" adressefichier = Replace(cheminfichier, " ", "%20")

---

Mais la il y a une erreur car l'adresse devient :
file:///C:/Documents%2520and%2520Settings/Administrateur/Bureau/.....

Pourquoi ces 25 apparaisse?
quelqu'un a une petite explication?
merci d'avance

et si tu protegeais le % dans l'instruction replace ?

Comment ca?
Si je fait un msgbox adressefichier ladresse est bien ecrite avec le %20 au bon endroit masi lors de l'ouverture du browser les 25 apparaiddent dans la barre d'adresse.

le caractere 25 en hexa donne %
Apparement %20 à été codé une seconde fois ce qui fait que cela donne %2520
Essaye de ne pas faire ton replace, juste pour voir ce que devient la barre d'adresse

c'est la que je ne comprend pas, lorsque je ne met pas le replace la barre d'adresse de firefox donne:
file:///C:/Documents

elle s'arrete apparament au premier espace qu'elle rencontre.

Une alternative serait d'utiliser le ShortPath à l'aide de FSO.

Un petit exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() ' Il ne faut pas oublier d'activer la référence Microsoft Scripting Runtime (scrrun.dll) Dim FSO As FileSystemObject Dim File As Object Set FSO = New FileSystemObject Set File = FSO.GetFile("c:\fichier")   MsgBox File.ShortPath End Sub

---

Merci pour ton aide, en fait je n'ai pas fait avec Microsoft Scripting Runtime j'ai utilisé l'api getshortpathname.

Mais le principe est le meme
encore merci