FileSystemObject模型-如何列出目录中的文件（VB6）

这是一个简单的VB6代码段，使用

FileSystemObject模型可查找C：\ Temp中的所有文件并将其名称加载到列表框中。 要使用此示例，您需要进行如下设置：

• 在VB6中创建一个新项目
• 添加表单（无论如何，默认情况下可能会发生这种情况）
• 拉下在P roject菜单并选择参考，N个 CE。
• 查找Microsoft脚本运行时，然后填写复选框以将其选中。 单击确定 。
• 将ListBox控件添加到窗体，名称将为List1 。
• 将命令按钮添加到窗体名称将是Command1 。
• 双击命令按钮以调出Click事件过程。
• 粘贴以下代码...
  

  Dim fso As New FileSystemObject
  Dim fld As Folder
  Dim fil As File
  Set fld = fso.GetFolder("C:\Temp")
  For Each fil In fld.Files
    List1.AddItem fil.Name
  Next
  Set fil = Nothing
  Set fld = Nothing
  Set fso = Nothing

  请注意，某些浏览器会复制行号，因此您可能需要在编译代码之前对其进行编辑。
• 如果需要，请修改诸如目录（C：\ Temp）之类的详细信息。
• 编译并运行。
• 单击命令按钮，将指定目录中文件的名称填充到列表框中。

From: https://bytes.com/topic/visual-basic/insights/697284-filesystemobject-model-how-list-files-directory-vb6