+ -
当前位置:首页 → 问答吧 → 怎样获取一个文件夹中所有文档名称的列表

怎样获取一个文件夹中所有文档名称的列表

时间:2007-03-06

来源:互联网

急!!!!!!!!

文件夹中有数百个文档,主要是word文档,想提取这个文件夹中的文档名清单,不知道有什么好办法?

能提取所有文档名单最好,若能把word文档清单提取出来也可以。

谢各位!

作者: 裘千仞   发布时间: 2007-03-06

建议楼主在本论坛搜索“目录”。

作者: LangQueS   发布时间: 2007-03-06

QUOTE:
以下是引用裘千仞在2007-3-6 11:05:09的发言:

急!!!!!!!!

文件夹中有数百个文档,主要是word文档,想提取这个文件夹中的文档名清单,不知道有什么好办法?

能提取所有文档名单最好,若能把word文档清单提取出来也可以。

谢各位!

GSHhqf8j.rar (23.1 KB)
GSHhqf8j.rar (23.1 KB)
怎样获取一个文件夹中所有文档名称的列表
下载次数: 40
2007-3-6 11:36

作者: zjxia889   发布时间: 2007-03-06

是什么意思啊?

我没有看懂啊,要怎么做啊?

作者: 燕燕   发布时间: 2007-03-06

Sub 文件夹文档()
    ActiveDocument.Content.InsertAfter ShowFolderList(InputBox("请输入文件夹", "Excelhome提醒你", "C:\"))
End Sub
Function ShowFolderList(folderspec) As String
    Dim fso, f, f1, fc, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        s = s & f1.Name & vbCrLf
    Next
    ShowFolderList = s
End Function

作者: konggs   发布时间: 2007-03-06

我不会用VBA的办法,暂时用dos命令的方法,如要提取当前目录(文件夹)及其所有子目录中的所有doc文档文件名,可用如下命令生成文本文件bb:

dir *.doc /s /w >>bb.txt

直接生成doc文件也可以,只是打开时好像须进行转换。

作者: sylun   发布时间: 2007-03-06

方法有很多。

也可以参考一个这个链接:

http://club.excelhome.net/viewthread.php?tid=106765&replyID=&skin=0

作者: 守柔   发布时间: 2007-03-07

看不懂,可以详细的解说吗

作者: qianlong   发布时间: 2007-03-07

QUOTE:
以下是引用sylun在2007-3-6 15:18:19的发言:

dir *.doc /s /w >>bb.txt

这是最简单的办法。具体过程:
在该文件夹中新建文本文档,用记事本打开,输入如下内容
dir /w >>bb.txt
或如下内容
dir *.doc /w >>bb.txt
将文件名改为test.bat
然后直接运行test.bat。将得到的bb.txt略加处理即可。

作者: yuyvtul   发布时间: 2007-03-07

yuyvtul:

谢谢,看懂了!

作者: qianlong   发布时间: 2007-03-07

3楼的附件真是棒

作者: Fiona_418   发布时间: 2011-01-08

热门下载

更多