vb怎么打开文件夹？

1、点击对话框下菜单，点击打开文件对话框。

2、搜核点击FileName控件，设置FileName文件名。

3、然后在这里设置对象可见性的级别。

4、点击Title选项，设置标题的销行名称。

5、按F8开始单步调试代码，点击Command2，进入单亏漏哗步调试功能。

6、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

Dim i As Integer

Dim x As String

Private Sub Command1_Click()

Dim H As Boolean

x = LCase(InputBox("路径为=")) '这里不用val ，这是反数值。对话框应提示“输入文件名”悉碧扒，而不是路径睁昌。

    H = False

    For i 慧旅= 0 To File1.ListCount - 1

        If LCase(File1.List(i)) = x Then '比较时一律改为小写或大写

            H = True

            Exit For

        End If

    Next i

    If H = True Then

        Shell "notepad.exe " & File1.Path & "\" & File1.List(i), vbNormalFocus

    Else

        MsgBox "没有可以打开的文件"

    End If

End Sub

---