如何快速获取文件夹内文件名

方法一DOS语句法：
1》
新建TXT文件，输入 dir *.*/B>list.txt

2》
保存，扩展名改为 bat

3》
双击运行，即可生成

PS：
DIR *.*/B>LIST.TXT
DIR可以简单理解成函数。
*.*? *是通配符，第一个*是文件名，第二个*是文件格式。如果只要excel文件，就修改为*.xls。
/b?是使用空格式，没有标题信息之类的。
list.txt是生成的文件类型和名字。

综上所述，如果是生成excel文件的目录，并以excel来呈现，命名为目录，语句就改为DIR *.xls /B >目录.xls


方法二浏览器法：
1》
打开文件夹，将文件夹地址粘贴到浏览器地址栏（非IE浏览器）

2》
选择清单，粘贴到TXT内

3》
先粘贴到Excel内调整行；再粘贴到Excel内即可进行整理


方法三函数法：
1》
自定义名称。政治经济学文件夹中的所有文件定义为文件名称
文件名称=FILES("F:\政治经济学\*.*")

》
输入函数。=index(文件名称,row(A1))

PS:index函数，引用函数，
连续区域中index函数的公式格式是=index(array,row_num,column_num)
非连续区域中index函数的公式格式是=index(（array_1,array_2,array_3....array_n),row_num,column_num,array_num)



方法四VBA法
Sub FileDir()

Dim p$, f$, k&
'
'
'获取用户选择文件夹的路径
With Application.FileDialog(msoFileDialogFolderPicker)
'选择文件夹
.AllowMultiSelect = False
'不允许多选
If .Show Then
p = .SelectedItems(1)
'选择的文件路径赋值变量P
Else
Exit Sub
'如果没有选择保存路径，则退出程序
End If
End With
If Right(p, 1) <> "\" Then p = p & "\"
'
'
f = Dir(p & "*.*")
'返回变量P路径下带任意扩展名的文件名。如果超过一个文件存在，函数将返回按条件第一个找到的文件名。
'如果一个文件都没有，则f返回""
[a:a].ClearContents '清空A列数据
[a1] = "目录"
k = 1 'K
Do While f <> "" '如果f不等于""，则……
k = k + 1 '累加K
Cells(k, 1) = f
f = Dir
' 若第二次调用 Dir 函数，但不带任何参数，则将返回同一目录下的下一个文件。
Loop
'
'
MsgBox "OK"
End Sub