VB里如何调用Windows文件浏览器打开文件夹？

如打开d盘

Private Sub Command1_Click()

Shell "Explorer " &"d:\", vbNormalFocus

End Sub

我试了，可以啊

除非你电脑里没d盘

VB可使用WebBrowser控件实现浏览器功能。

新建EXE工程，添加一个TextBox控件，添加Microsoft Internet Controls部件到工具箱。

在窗体上添加WebBrowser控件。调整好窗体、各控件尺寸。

使用以下代码：

Private Sub Form_Load()

    WebBrowser1.Navigate "http://zhidao.baidu.com"

    Do

        DoEvents

        If Not WebBrowser1.Busy And WebBrowser1.LocationURL <> "http://www.wk78.com/" Then

            Exit Do

        End If

    Loop

End Sub

Private Sub Text1_Click()

    WebBrowser1.Navigate Text1.Text

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)

    If (pDisp Is WebBrowser1.Object) Then

        Text1 = WebBrowser1.LocationURL

    End If

End Sub

---