利用Excel从文件夹中提取所有文件名

利用Excel从文件夹中提取所有文件名

利用Excel从文件夹中提取所有文件名

http://wendang.chazidian.com 2003/02/21 13:55 赛迪网--中国电脑教育报

文/万兵

有时我们想要把一个文件夹中的所有文件名整理到一个文件中，便于管理和查询以及打印，多数是使用“复制”、“粘贴”方法(将文件夹中的文件重命名，在可编辑状态下进行复制，而后在其他文档中粘贴)。这种办法可行，但对于文件夹中有大量的文件的情况，则工作效率低，而且做完后必须核对。

利用DOS的重定向命令“〉”加Excel的引用外部数据功能可实现方便快捷的方法(关于

DOS中的重定向“〉”，《中国电脑教育报》2002年第25期A35版中《重定向的妙用》已详细介绍)。

假设我们要提取C盘下的Windows目录下的所有文件及文件夹名。

第1步在DOS或Windows 98的MS-DOS方式下，输入如下命令：C:＼windows＼dir〉d:＼1.txt(回车)

利用Excel从文件夹中提取所有文件名

第2步打开一个新的Excel XP电子表格，单击工具栏中的“数据”下拉菜单，选择“导入外部数据→导入数据”命令，打开“导入数据”对话框，在“查找范围”中找到D盘下的1.txt文档，单击“打开”，进入“文本导入向导-3步骤之1”(如图1)。

第3步在“原始数据类型”单选框中选“分隔符号”后按“下一步”，进入“文本导入向导-3步骤之2”(如图2)。

第4步在“分隔符号”复选框中选“分号、逗号、空格、其他”，并在“其他”后的空格中填“.”，按“下一步”，进入“文本导入向导-3步骤之3”(如图3)。

利用Excel从文件夹中提取所有文件名

第5步单击“完成”，出现“导入数据”对话框，选择“现有工作表”单选框后按“确定”。

到了这里，你应可以看到8列数据，第一列便是所要的“文件名”。但是，DIR命令的显示的中文文件名只显示3～4个汉字，别急，看看第7列(G列)，所有的完整的文件名都在这里(如图4)！第8列是文件名的后缀，方便于筛选(对于Excel 2000，所不同的是在工具栏中的“数据”下拉菜单下，选择的是“获取外部数据/导入文本文件”命令)。

至此，你就可以用Excel来编辑这些文件名了。

FL=FILES(path&目录!$A$2)&T(NOW())

path=MID(CELL("filename"),1,FIND("[",CELL("filename"),1)-1)

进入DOS模式 ，进入这个目录 然后 dir > abc.txt

这样就把该目录下的所有文件保存在abc.txt中了

如果存在子目录就 dir > abc.txt /s

如果制定某种类型的文件就 dir *.xls > abc.txt

（文本文件中包含 abc.txt 这个文件名）

利用Excel从文件夹中提取所有文件名

=======================================================

如果你对DOS不熟悉的话，具体步骤如下：

1、在XP中打开这个文件夹，然后在地址栏中复制该文件夹的地址

2、开始-程序-附件-命令提示符 （进入DOS模式）

3、用键盘输入(X:) （输入()里的内容，X表示具体的盘符，如果是相同的盘这一步可以省略），输入结束后要回车一下

4、输入(cd )然后点鼠标右键-粘贴 （cd 后面有一个空格，在DOS模式不好用Ctrl+V这样的快捷键）

5、然后输入上述的DOS命令

Dos 命令中不区分大小写

批量提取文件名的办法

2008年06月15日 星期日 00:00

文件名提取器 超级好用哦,去百度搜索吧.

批量提取文件名的办法

方法一：tree命令

命令提示符下： (开始/运行/CMD)

tree (要获得文件名的文件夹的路径）/f >（存放的路径/filename）

例如：要获得C盘下的所有文件的文件名，并将生成的文件保存到D盘，可使用如下命令

tree□C:□/f >D:/contents.txt

“□”代表一个空格

小tip：

可以先在记事本中写好，将其粘贴(注意：不能用Ctrl+V)到cmd.exe程序中。 例：将下列复制到cmd.exe中即可

tree D: /f>E:/contents.xls

方法二：dir命令

dir c:\ >d:\1.txt

将C盘根目录里的文件夹名和文件名都保存在D盘目录下的1.txt里，此文件可导入excel作进一步处理。dir可加参数 /w 等。

其他：

若是音乐文件，可将音乐文件拖进千千静听等播放软件，然后另存为播放列表。此列表用记事本打开即可查看

Other

领导布置任务：

把最近几年的个人论文列一个清单给我看。天哪，个人论文？单位近百人，每个人每年一篇论文，如果都列出来，还不把我累死？仔细一想，总结全部放在“D:\lunwen”这个文件夹中，而且我原来使用论文的名称＋作者名作为文件名来使用，也就是说，只要把文件名提取出来，那么清单自然就列出来了。 赶紧动手，在“运行”中键入“CMD”进入命令提示符窗口，然后切换命令提示符的状态到“D:\lunwen”，输入“dir /b huizong,txt”，参数“/b”表

利用Excel从文件夹中提取所有文件名

示仅提取文件名。这样“lunwen”文件夹中的所有文件名都被提取到

“huizong,txt”这个文本文件中。

现在打印出来，可以向领导交差了。

如果想把MP3格式的那就用这个

开始——运行——CMD——输入你要搞的那个盘如：D：然后输入这个 dir 盘符:\*.mp3 /s /a /b>>列表.txt

相关文章http://wendang.chazidian.com/mmsio/blog/item/0a3437970dd6406b55fb962c.html

1

2

3

4

5

6

7

8

9

10

11

12

13

15

16

17

Sub listfile() ''''''''''''''''''''''''''''''''''''''''''''' ' 宏由 http://wendang.chazidian.com 录制，时间: 2009-5-12 ' ' 批量获取指定目录下所有文件名 ' ' ' '''''''''''''''''''''''''''''''''''''''''''' Dim fs Dim mypath As String Dim theSh As Object Dim theFolder As Object On Error Resume Next 14 '设置搜索路径 Set theSh = CreateObject("shell.application") Set theFolder = theSh.BrowseForFolder(0, "", 0, "")