通过VBS（Visual Basic Script）获取当前文件夹里所有文件的名称

在统计的过程中，我们有时候想要复制当前文件夹中所有的文件名称，一个一个点效率太低。

现在我们可以通过vbs代码来实现这一操作，需要的宝子可以自己写一个vbs文件也可以直接下载资源【复制当前文件夹中所有文件名.vbs】：

代码示例：

' 创建一个FileSystemObject对象
Dim fso, folder, file, outputFile
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前脚本所在的文件夹
Set folder = fso.GetFolder(".")

' 创建一个新的文本文件用于写入文件名
Set outputFile = fso.CreateTextFile("file_names.txt", True) ' True表示如果文件已存在则覆盖

' 遍历文件夹中的每个文件
For Each file In folder.Files
    ' 将文件名写入到文本文件中，并添加一个换行符
    outputFile.WriteLine(file.Name)
Next

' 关闭文本文件
outputFile.Close

' 清理对象
Set file = Nothing
Set folder = Nothing
Set outputFile = Nothing
Set fso = Nothing

' 可选：显示消息框表示完成
MsgBox "文件名已写入到 file_names.txt 文件中。", vbInformation

步骤：

方法1. 自己写代码：

1.1 在你需要复制文件名所在文件夹下创建一个vbs文件：新建文本文档

1.2 将上述代码拷贝至文档中

1.3 把后缀"txt"改成"vbs"

1.4 双击执行完毕后会弹窗提示 “文件名已写入到 file_names.txt 文件中。”

方法2. 下载资源中已写好的vbs文件：

2.1 把下载好的vbs文件【复制当前文件夹中所有文件名.vbs】放入需要处理的文件夹中

2.2 双击执行完毕后会弹窗提示 “文件名已写入到 file_names.txt 文件中。”

运行结果展示（右侧栏为执行代码后输出到文本 file_names.txt 的内容展示 ）：

vbs文件报错问题详见（秒懂）：

http://t.csdnimg.cn/hLt2h