这是一个简单的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)之类的详细信息。
- 编译并运行。
- 单击命令按钮,将指定目录中文件的名称填充到列表框中。