Hi all
Im trying to make a relative path for the function below. My purpose is ,, by pressing commandbutton 13,, to open a textfile with url inside and then make IE go to that url. The textfile to open is choosen from what you choose in the combobox1 list. I must be close to solve it ..or maybe far away? Please look at following code. Why wont it work? :
Private Sub CommandButton13_Click()
Dim IE As Object
Dim FF As Integer
Dim filepath As String
filepath = ActiveWorkbook.Path & "\data\url\" & ComboBox1.Value & ".txt"
FF = FreeFile()
Open "filepath" & ComboBox1.Value & ".txt" For Input As #FF
Line Input #FF, StrUrl
Close #FF
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate StrUrl
End Sub
Thanks in advance
/Jan
Bookmarks