在VB中，可以使用FileSystemObject（文件系统对象）来读取一个文件夹下的所有文件名。以下是一个示例：

Dim fso As Object

Dim folderPath As String

Dim folder As Object

Dim file As Object

' 创建FileSystemObject对象

Set fso = CreateObject("Scripting.FileSystemObject")

' 设置要读取的文件夹路径

folderPath = "C:\Temp"

' 获取文件夹对象

Set folder = fso.GetFolder(folderPath)

' 遍历文件夹中的所有文件，并输出文件名

For Each file In folder.Files

    MsgBox file.Name

Next file

在这个示例中，我们首先创建了一个FileSystemObject对象，然后设置要读取的文件夹路径。接着，我们使用GetFolder方法获取文件夹对象，使用Files属性获取该文件夹下的所有文件集合，并使用For Each循环遍历文件集合，并使用MsgBox函数显示每个文件的名称。

请注意，在使用FileSystemObject对象时需要添加对Microsoft Scripting Runtime库的引用。可以在“工具”菜单中选择“引用”，然后勾选“Microsoft Scripting Runtime”选项来添加引用。

另外，使用FileSystemObject对象读取文件名等操作可能会受到安全策略和权限限制。在实际使用时需要根据具体情况进行调整并确保操作的合法性。