Question

用EXCEL VBA获取指定目录下的文件名(包括文件夹名)

Answer 1

1、首先利用快捷键“Windows键+R”打开“运行”窗口

2、接着输入“cmd”并点击“打开”

3、比如是需要复制输出c盘下的Progam Data中文件夹的名字

4、在命令窗口中输入“cd c:\Progam Data”

5、点击“回车键”后出现下面情况

6、然后输入“dir /b>d:21.xls”命令并点击“回车键”

7、接着就在D盘出现名称为21的一个Excel表格

8、点击打开即可查看Progam Data中的文件夹名字都在Excel表格中，可以批量直接复制了

Answer 2

Sub xFolder()
Dim xPath As String
xPath = "F:\TMP\A"
exsitpath = Dir(xPath, vbDirectory)
If exsitpath <> "" Then
xs = Dir(xPath & "\" & "*.txt")
Do While xs <> ""
MsgBox xs '此处将获取到文件名，看你是准备写入表格，是其他代码
xs = Dir
Loop
End If
End Sub