vb怎么打开文件夹？

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

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

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

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

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

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

使用VB内建函数读取文本文件

1/3

双击Command1添加如下代码

Private Sub Command1_Click()

    Dim strFile     As String

    Dim intFile     As Integer

    Dim strData     As String

    strFile = "c:\学生成绩.txt"

    intFile = FreeFile

    Open strFile For Input As intFile

    strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

    Debug.Print strData

    Close intFile

End Sub

2/3

运行代码读取文件

按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按嫌烂下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

查看剩余1张图

3/3

关键代码说明

intFile = FreeFile：获取一个文件句柄

Open strFile For Input As intFile ：打开文件

FileLen(strFile) ：获取文件内容字节大小

InputB：读取文件内容字节流

StrConv：将字节流转换为Unicode字符串

Debug.Print strData：将字符串内容输出到立即窗口

Close intFile：关闭文件句柄

使用FileSystemObject读取文本文件

1/3

添加Microsoft Scripting Runtime引用

点击Project菜单，再点击下拉菜单中的Reference，打开引用对话框，浏览找到Microsoft Scripting Runtime引用，选择后点确定按钮。

查看剩余1张图

2/3

双击Command2添加如下代码

Private Sub Command2_Click()

    Dim objFS

3/3

运行代码读取文件

按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，老者芦就完成了读取文本文件内容并输出到立侍带即窗口。

可以实现

可以借助文件列表框来实现

首先加入一个FileListBox 控件,然后加入一下程序

Private Sub Command1_Click()

File1.Path = "C:\Documents and Settings\Administrator\桌面\新建文件夹" '指定一个文件夹或衫宏

File1.Pattern = "*.txt" '指定文件类型

Dim i As Integer

For i = 0 To File1.ListCount - 1 从列衫册表框的第一个项目找到最后一个项目

Print File1.List(i) '依次输出该文件夹中指定类型的文件名,可塌败以按照自己的需要输出到一个文本文件中,或者自己其他指定

Next i

End Sub

如果需要,可以把该控件的visible属性谁为false,把控件隐藏

---