red_eye
asked on
Access IE History file from VB
Does anyone know how to pull a history listing from IE 4.x using VB?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Is this what you are looking for? I might have misunderstood.
ASKER
The typed URL history would be of help but what I am also looking for is access to the URL history in the C:\windows\history folder. Any ideas on this? I am sorry I wasnt more clear with my question. I have increased the points to 175.
I think this might be what you are looking for. This code will pull all urls out of the index.dat file in the c:\windows\history folder and print them in the debug window. You can put them in an array or whatever. You can modify this code if you need to get into the other dat files in that directory, but this one should be all you need.
Put this code in form load or button click or something...
Dim displacement As Integer
Dim dta As String
Dim i As Long
Dim j As Long
displacement = 119
Open "c:\windows\history\index. dat" For Binary As #1
dta = Space$(LOF(1))
Get #1, , dta
Close #1
i = InStr(i + 1, dta, "URLS ")
While i < Len(dta)
If i > 0 Then
j = InStr(i + displacement - 1, dta, Chr$(0))
Debug.Print Mid$(dta, i + displacement, j - (i + displacement))
' If i = 372481 Then Stop
End If
i = InStr(i + 1, dta, "URL ")
If i = 0 Then End
Wend
End
I hope this is the correct answer. If not then let me know.
Put this code in form load or button click or something...
Dim displacement As Integer
Dim dta As String
Dim i As Long
Dim j As Long
displacement = 119
Open "c:\windows\history\index.
dta = Space$(LOF(1))
Get #1, , dta
Close #1
i = InStr(i + 1, dta, "URLS ")
While i < Len(dta)
If i > 0 Then
j = InStr(i + displacement - 1, dta, Chr$(0))
Debug.Print Mid$(dta, i + displacement, j - (i + displacement))
' If i = 372481 Then Stop
End If
i = InStr(i + 1, dta, "URL ")
If i = 0 Then End
Wend
End
I hope this is the correct answer. If not then let me know.
ASKER
PERFECT! Thank you very much! That is exactly what I was looking for. I bumped the point total to 200 for providing the actual working code which will be a great base to work from!! I will keep you in mind when the app goes into beta to see if you are interested in testing it. Thanks again!