Discussion :

[morgan47]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[phiric]

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

[morgan47]

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.

[Delbeke]

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

[morgan47]

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.

[Jihnn]

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

Un petit exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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