如何用VB获得某一目录下的所有文件和文件夹名称？

Dim a() As String

Private Sub Dir1_Change()

File1.Path = Dir1.Path

Label1.Caption = Dir1.Path

End Sub

Private Sub Drive1_Change()

On Error GoTo err1

Dir1.Path = Drive1.Drive

Exit Sub

err1:

MsgBox Err.Description, vbInformation + vbOKOnly, "提示"

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim ifieldcount As Integer, irecordcount As Integer

Dim wdapp As Word.Application

Dim wddoc As Word.Document

Dim atable As Word.Table

If Option2.Value = True Then

ReDim a(1 To File1.ListCount)

For i = 1 To File1.ListCount

b = File1.List(i)

a(i) = b

Next

End If

If Option1.Value = True Then

ReDim a(1 To Dir1.ListCount)

For i = 1 To Dir1.ListCount

b = Dir1.List(i)

a(i) = b

Next

End If

End Sub

这段程序 复制过去 就行了 创建的控件有 两个option 让你选择 要提取文件夹 还是文件路径的 选中option 1 就是提取文件夹的 option2 就是提取文件的 然后再创建 Drive1 Dir1 File1 这三个 选择文件路径的 控件 再加一个 command 按钮 就行了 有疑问再联系我！！！！！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

使用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,把控件隐藏

---