批量提取文件名到文档

Q1： 如何将众多文件夹中的文件批量一次性提取到一个文件夹中

将压缩包解压到一个空文件夹里，进入这个文件夹，点当前窗口工具栏的【搜索】（你知道什么叫工具栏吧？），于是在左侧出现搜索栏，在【要搜索的文件或文件夹名为】框里填*.*就会搜索出当前文件夹下的所有文件和子文件夹，然后在右侧的空白区域点右键，【排列图标】-【名称】，即可把所有的文件和文件夹分开，再用Shift键选中所有文件，复制或者剪切就随你了，剩下的不用说了吧~~~

Q2： 如何批量提取文件到新的文件夹中

图片看不清楚，文件扩展名和源文件夹，目标文件夹自己修改
代码如下，添加到Sheet1中：
Sub m()
Set dic = CreateObject("scripting.dictionary")
For i = 2 To Range("E65536").End(3).Row
dic(Cells(i, "E").Value) = ""
Next i
f = Dir("E:\1\*.png") '根据情况修改源文件夹名称以及图片格式
Do While f <> ""
If dic.exists(Left(f, Len(f) - 4)) Then
FileCopy "E:\1\" & f, "E:\1\1\" & f '根据情况修改目标文件夹名称
End If
f = Dir
Loop
End Sub

源文件夹路径E:\2016CZEPS
目标文件夹路径E:\2016CZJPG\white
扩展名是*.eps
以上是你看不清楚的内容。。。我对电脑也不是太懂。。。你给的代码要如何使用呢？是开始菜单里的“运行”吗？
就是想再麻烦你帮我重写一下，然后我只要拷贝一下，我怕我改错了，谢谢！

在你的Excel文件“白色”中，按Alt+F11，在出现的新界面空白处，复制上下面的代码
然后按F5，就完事了，你去目标文件夹中看看，是否复制过去了
Sub m()
Set dic = CreateObject("scripting.dictionary")
For i = 2 To Range("E65536").End(3).Row
dic(Cells(i, "E").Value) = ""
Next i
f = Dir("E:\2016CZEPS\*.eps")
Do While f <> ""
If dic.exists(Left(f, Len(f) - 4)) Then
FileCopy "E:\2016CZEPS\" & f, "E:\2016CZJPG\white\" & f
End If
f = Dir
Loop
End Sub

Q3： 如何批量提取文本第一行加到文件名中

用软件Replace Pioneer可以很容易实现提取文件中的任何内容作为新文件名，用第二行作文件名的详细步骤：
打开Tools->Batch Runner菜单
把待处理文件拖拽到Batch Runner窗口中
选中Set output filename选项，把后面的文本框内容改为${FILENAME}{file_line,2}.${EXT}即可
观察output file一列的新文件名预览是否正确，然后点击File Rename完成。

Q4： 如何按文件顺序批量提取文件名

@echo off
dir *.xls? /a-d /o:d /b >./文件名list（不含路径）.xls
这样或许文件名！
新建文本文件，复制以上内容，粘贴，保存，修改后缀名为.bat,把改文件放到需要对应文件夹下，双击！

能生成EXCLE 但里面没有文件名