如何获取指定的文件夹内文件的全部名称？

Question

如题所述

Answer 1

可以使用命令行命令。

Win+R，输入CMD，打开命令行提示符窗口，用CD命令定位到需要获取文件夹内文件名称的目录下，如C:\A，然后输入以下代码，就会生成文件清单到file01.TXT文件中。

DIR /B /S /A:-D >file01.txt

Answer 2

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