[fouadhdfouad]

السلام عليكم اخي معاذ ارجو ان تسامحني على عدم الرد عليك لانني مشغول 

لم افهم مقصودك ان كنت تبحث عن هذا فلاباس

---

تفضل الكود

كود :

Dim open As New FolderBrowserDialog
   Dim oDocument As Object
   Dim strFileName As String
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       strFileName = open.SelectedPath
       If open.ShowDialog = Windows.Forms.DialogResult.OK Then
           WebBrowser1.Navigate(strFileName)
       End If
   End Sub
   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       On Error Resume Next
       oDocument = e.Url.IsDefaultPort
   End Sub