在VB中如何获取指定文件夹下的所有文件名？

VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。

FileListBox 控件，在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

以下是组合使用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Dim i As Long

Debug.Print "目录夹内存在" & File1.ListCount & "个文件。"

End Sub

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

1.首先打开Excel电子表格，然后在开发工具中打开VBA编辑器，如下图。

2.在单元格区域输入一些内容，如下图。

3.将模块插入到VBA编辑器中，如下图。

4.文件的子访问路径()Dimfiless,tempfiless=Application。GetOpenFilename(，，“打开文件”)如果filess=False，那么MsgBox“你没有选择知道选择文件，程序将退出!”:ExitSubtemp=Split(filess，"\")。

5.MsgBox "you choose" &temp(UBound(temp)) &"the path is:" &Chr(10) &filess _&Chr(10) &"the current table path is:" &Chr(10) &thisworkbook. "全名，vbokonty+64，“返回路径”结束子。在模块中输入代码并运行它，如下图。

6.然后点击“执行”按钮，程序d出“选择文件”对话框。选择文件后，程序立即d出所选文件的路径，然后d出当前工作簿的路径，如下图。

---