VB函数求救

DirListBox控件是显示文件夹的
FileListBox控件是显示文件的
没有一个函数有你要求的功能，即就是FSO也是对象，不是函数，请看：
Set fso = CreateObject("Scripting.FileSystemObject") 不是Object（对象）吗？

fso

FSO 对象模型编程包括三项主要任务：

使用CreateObject 方法，或将一个变量声明为 FileSystemObject 对象类型来创建一个 FileSystemObject 对象。

对新创建的对象使用适当的方法。

访问该对象的属性。
FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中。如果还没有引用此文件，请从“属性”菜单的“引用”对话框选择“Microsoft Scripting Runtime”项。然后就可以使用“对象浏览器”来查看其对象、集合、属性、方法、事件以及它的常数。

创建 FileSystemObject 对象
第一步是创建一个 FileSystemObject 对象以便进行处理。可以通过如下两种方法完成：

将一个变量声明为 FileSystemObject 对象类型：
Dim fso As New FileSystemObject

使用 CreateObject 方法来创建一个 FileSystemObject 对象：
Set fso = CreateObject("Scripting.FileSystemObject")

在上面的语法中， Scripting 是类型库的名称，而 FileSystemObject 则是想要创建一个实例的对象的名称。

注意 第一种方法只在 Visual Basic 中有效，而第二种方法在 Visual Basic 或 VBScript 中都是可行的。

使用适当的方法
下一步就是使用该 FileSystemObject