哪们高手帮我写名代码提取文件夹下所有文件的路径及文件名

wangzgywzj

哪们高手帮我写名代码提取文件夹下所有文件的及文件名路径，谢谢！

好象DOS下有个命令能把它生产文本文件保存的，忘了，谁还知道？

徐阿鹏

用fso，Visual Basic 语言概念 用 FileSystemObject 访问文件文件系统对象 (FSO) 模型提供一个基于对象的工具，用来处理文件夹和文件。它使您得以将熟悉的“对象.方法”语法与一组丰富的属性、方法和事件一起使用来处理文件夹和文件。还可以使用传统的 Visual Basic 语句和命令。FSO 模型使应用程序能够创建、更改、移动和删除文件夹，或者确定特定文件夹是否存在以及位于何处。它还使您得以获取有关文件夹的信息，如文件夹的名称以及文件夹的创建或上次修改日期。FSO 模型还使处理文件非常方便。当处理文件时，您的主要目标是以高效的易于访问的格式存储数据。您需要能够创建文件，插入和更改数据，以及输出（读取）数据。虽然可在数据库中存储数据，但这样做会给应用程序带来相当数量的系统开销。您可能不希望有这种系统开销，或者数据访问要求可能不需要与功能完善的数据库关联的额外功能。在这种情况下，在文本文件或二进制文件中存储数据是最有效的解决方案。FSO 模型包含在脚本类型库 (Scrrun.dll) 中，支持通过 TextStream 对象创建和操作文本文件，但是 FSO 模型不支持二进制文件。若要操作二进制文件，请使用带有 Binary 关键字的 FileOpen 函数函数。下列对象构成 FSO 模型：对象说明FileSystemObject使您得以创建和删除驱动器、文件夹与文件，获取有关它们的信息，以及以常规方式操作它们。许多与此对象关联的方法在其他对象中重复这些功能。Drive使您得以收集附加到系统的驱动器的信息，例如有多少可用空间以及其共享名称是什么。请注意，FSO 模型下的“驱动器”不一定是硬盘：它可以是 CD-ROM 驱动器、RAM 磁盘等。驱动器也不必以物理方式附加到系统上；它也可以通过局域网 (LAN) 以逻辑方式进行连接。Folder使您得以创建、删除或移动文件夹，以及在系统中查询它们的名称、路径和其他信息。File使您得以创建、删除或移动文件，以及在系统中查询它们的名称、路径和其他信息。TextStream使您得以读取和写入文本文件。有关 FSO 模型中各种属性、方法和事件的信息，请使用 Visual Basic 中的“对象浏览器”进行查看，方法是按 CTRL+ALT+J 并查看脚本类型库。如果脚本类型库没有出现在列表中，请创建对它的引用，如下节所示。在 FSO 模型中编程在 FSO 模型中编程需要三个主要任务：

• 通过使用 CreateObject 方法或者通过将变量标定为 FileSystemObject 对象来创建 FileSystemObject 对象。
• 对新创建的对象使用适当的方法。
• 访问该对象的属性。

FSO 模型包含在脚本类型库中，该库位于文件 Scrrun.dll 中。如果还没有对它的引用，可创建一个。创建对脚本类型库 (Scrrun.dll) 的引用

• 在“项目”菜单上，单击“添加引用”，然后单击“COM”选项卡。
• 从“组件名称”列表中选择“Microsoft Scripting Runtime”，然后单击“选择”。 现在可使用“对象浏览器”查看 FSO 模型的对象、集合、属性、方法、事件和常数。

创建 FileSystemObject 对象

• 将变量标定为类型 FileSystemObject，如下面的代码中所示： Dim fso As New FileSystemObject － 或 －
• 使用 CreateObject 方法创建 FileSystemObject 对象，如下面的代码中所示： fso = CreateObject("Scripting.FileSystemObject")

在第二个示例中，Scripting 是类型库的名称，FileSystemObject 是要创建其实例的对象的名称。注意   第一个方法只能在 Visual Basic 中使用，而第二个方法可在 Visual Basic 或 VBScript 中使用。安全说明   不要根

徐阿鹏

Sub CheckFolder(strPath As String)

Set m_objFSO = New FileSystemObject

Set objFolder = m_objFSO.GetFolder(strPath)  for Each objFile In objFolder.Files

MsgBox objFile

Next objFile  Set objFolder = Nothing

   

End Sub要先引用ms script ing runtime

wangzgywzj

先谢过我用dir/b/s> 1.txt 生成文本文件然后拷入了

yuanrongfa

好贴

不过可不可以给个具体的例子啊

fan0217

其实还有一种比较简单的方法：http://www.office-cn.net/forum.php?mod=viewthread&tid=43189&replyID=&skin=1



上述方法使用的是Office提供的对象：FileSearch，来完成的。

FileSearch对象是Office系统在2002版本新增加的对象。用FileSearch 属性可返回 FileSearch 对象，可实现查找指定文件并显示找到的文件数及每个找到的文件的标题。

heshaojian

我想知道。

heshaojian

可我发贴数不够。

heshaojian

只有这样了。

heshaojian

我看看够了吗？