如何用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 按钮 就行了 有疑问再联系我！！！！敬知！这个 只是 文件路径 你看看 是你想要的话 我再给你写 提取文件夹和文件名的代码！！！！

假设你的那个TextBox 叫 TextBox1，则在VBA中可以写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path &TextBox1.Text &".xlsx"   (后面根据文件的扩展名更改）

Workbooks.Open filename:=FileName

这是基本代码，其他的可以自由发挥。

以下是我常用的一段代码，作用是d出一个文件夹选择框，选中文件夹后，可以自动依次打开所有文件，方便批量衫雀处理。如果不想打开很多，就把 FileDialog 里的参数改为 msoFileDialogFilePicker 即可，当然，后面的For...Next循环也就不需要了。

    Dim Path, filename, FName As String

    Dim FileNumber, i, m As Integer

    Dim fopen As FileDialog

    

    m = 1

    Set fopen = Application.FileDialog(msoFileDialogFilePicker)

    

    If fopen.Show = 0 Then Exit Sub

        

    Path = fopen.SelectedItems(1) & "\"

    Sheet2.Range("A:A").ClearContents

    

    '列出目录文件名

    filename = Dir(Path)

    带谈Do Until filename = ""

    Sheet2.Cells(m, 1) = filename

    m = 蠢塌碰m + 1

    filename = Dir

    Loop

    

    FileNumber = WorksheetFunction.CountA(Sheet2.Range("A:A")) '文件总数

    

    For i = 1 To FileNumber

        Workbooks.Open filename:=Path & Sheet2.Cells(i, 1)

        Call Work

        ActiveWorkbook.Close True

    Next

在这里需要举一个例子好能清楚的了解在VB中怎么查找文件，如下：

假设要找的文件是TextBox 叫 TextBox1，那么可以老山厅在VB中这样写：

dim FileName, Path as string

Path = "D:\123\"

FileName = Path &TextBox1.Text &".xlsx" (后面根据文唯带件的扩展名更改即可）

Workbooks.Open filename:=FileName

VB全称是Visual Basic，是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者侍隐轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

---