如何获取指定文件夹下文件的名称？
很久以前（2年前？）我们分享过DOS的方法，操作动画如下：
![]()
VBA可以通过Wscript.Shell调用DOS语句，以后我们可能会分享到这部分内容~所以这里先简单说下动画中DOS语句的意思
DIR *.*/B>LIST.TXT
DIR可以简单理解成函数。
*.* *是通配符，第一个*是文件名，第二个*是文件格式。如果只要excel文件，就修改为*.xls。
/b 是使用空格式，没有标题信息之类的。
list.txt是生成的文件类型和名字。
综上所述，如果是生成excel文件的目录，并以excel来呈现，命名为目录，语句就改为DIR *.xls /B >目录.xls
除了DOS的方法还有浏览器法、函数法以及我们今天分享的VBA法。
函数法如下图所示，浏览器法这里就不啰嗦介绍了。
看我眼睛，先声明，动画里的政治经济学和我没关系啊，那是老祝干的事，我作证……
![]()
最后说下VBA的方法……
照例先上操作动画：
代码的核心是DIR语句，注释部分业已作了解释，这里就不再啰嗦了。
代码如下：
Sub FileDir() Dim p$, f$, k& '获取用户选择文件夹的路径 With Application.FileDialog(msoFileDialogFolderPicker) '选择文件夹 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指定路径下带任意扩展名的文件名 '如果有超过一个文件存在，将返回第一个找到的文件名 '如果一个文件都没有，则返回空 [a:a].ClearContents '清空A列数据 [a1] = "目录" k = 1 Do While f "" '如果文件名不为空，则…… k = k + 1 '累加文件个数 Cells(k, 1) = f f = Dir '第二次调用Dir函数，但不带任何参数，则将返回同一目录下的下一个文件。 Loop MsgBox "OK"End Sub
小贴士：
如何用VBA判断某个文件夹下是否存在名称为“看见星光”的工作簿？
|
|
转播
