Private Sub lblok_Click()
On Error Resume Next
Dim aPath As String
aPath = File1.Path & "\" & File1.FileName
If aPath <> "" Then
  aPath = aPath & "\"
  aPath = Replace(aPath, "\\", "\")
End If
frmBrowser.webmain.Navigate aPath
frmBrowser.lblopen.Tag = frmopenfile.File1.Path ' diese zeile dient nur dazu, 
' dass beim erneuten öffnen der Form der letzte geöffnete Ordner eingestellt 
' wird
Unload Me
End Sub

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=