如何列出目录下的所有文件和子目录?

[pasu]

如何列出目录下的所有文件和子目录?

[hyzx2000]

Dir("*.*")
Dir()

[pasu]

我要将导入数据库中,有何良策？

[Tyro]

Dir得不到子目录

[Keri]

MSDN中有例程的,如下所示:
' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop