Url Hidde

[eeyk]

Ik had paar topics trug een vraagje nu heb ik een zlefte vraag maar iets anders


app.path is bevoorbeeld

app.path = C:\programa Files\VND\V0.1\

als ik dan er voor zorg dat dit in me Webbrowser komt
dan krijg ik dit

File:///c:/programa File/VND/V0.1/

en als ik dan dit wilt doen werk het niet

if "file:///" + app.path + "/error.txt" then
combo1.text = ""
statusbar1.panels(1).text = "Pagina kan niet worden Wegeven!"
else
end of

dat werkt niet en ik heb de fout gevonden
app.path heeft \ en geen / hoe draai ik de \\ om?

 

[That Guy]

errr, wat dacht je van:

dim sTrinGg as string
dim sNew as string

sNew = replace(sTrinGg, "\","/")

 

[eeyk]

nee werkt niet

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
Dim sTrinGg As String
Dim sNew As String

sNew = Replace(sTrinGg, "\", "/")

WebBrowser1.Navigate (App.Path + "\error.txt")


If Combo1.Text = "file:///" & App.Path & "/error.txt" Then
Combo1.Text = ""
StatusBar1.Panels(1).Text = "Pagina Niet Gevonden!"
Else

End If
end sub

 

[kabourterplop]

Volgens mij doe je het fout want sTrinGg is leeg, je zet er nergens wat in. En sNew gebruik je vervolgens ook niet.

 

[eeyk]

Hoe Gebruik je die dan?

ik maak sinds kort alles zelf dus kan ik het ook niet meer aan me Maten vragen

 

[kabourterplop]

Als je in jou code kijkt wat zet je dan in sTrinGg? Die blijft leegt want je zet er geen waarde in.

 

[eeyk]

werkt nog niet nu zie het er zo uit

Private Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)

WebBrowser1.Navigate (App.Path + "\error.txt")

Dim sTrinGg
sTrinGg = App.Path
Dim sNew As String
sNew = Replace(sTrinGg, "\", "/")


If WebBrowser1.LocationURL = sNew Then
Combo1.Text = ""
StatusBar1.Panels(1).Text = "Pagina Niet Gevonden!"
Else

End If
End Sub

 

[kabourterplop]

Kijk eens goed naar je code want je zet boven aan

webbrowser1.navigate(app.path) 'Dit is het oude pad met de andere slash

Daarna doe je dit

If WebBrowser1.LocationURL = sNew Then 'Hier ga je controleren of het pad van de pagina de nieuwe pagina is. Maar bij sNew heb je de slashes veranderd en zij de strings neit hetzelfde meer.

Of zie ik dit fout?

 

[eeyk]

klopt maar door dat het in webbrowser word ge Vieuwd

krijg je

/ / / / /

en app.path is \ \ \ \ \ \

 

[That Guy]

gebruik de replace() functie?....

 

[eeyk]

ik heb het gefix ik heb

dim html as string

html = "Pagina kan niet worden wergenven" & _

enzo