Dim sFile As String
sFile = "d:\temp\test.pdf"
 
Dim oExplorer As Object
Set oExplorer = CreateObject("InternetExplorer.Application")
oExplorer.Visible = True
oExplorer.Navigate2 sFile

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de