给我写一个vbs可以帮助工作的代码

好的，这里是一个示例的 VBS 代码，可以帮助你在 Windows 系统中查找指定目录下的所有文件名称，并将文件名称输出到文本文件中：

Option Explicit
Dim fso, folder, files, outFile
Dim folderPath, outFilePath

' 设置文件夹路径
folderPath = "C:\Users\your_username\Desktop\example_folder"

' 设置输出文件路径
outFilePath = "C:\Users\your_username\Desktop\file_list.txt"

' 创建文件系统对象和文件夹对象
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
Set files = folder.Files

' 创建输出文件对象
Set outFile = fso.CreateTextFile(outFilePath, True)

' 遍历文件夹中的所有文件，并将文件名写入输出文件中
For Each file In files
    outFile.WriteLine(file.Name)
Next

' 关闭输出文件
outFile.Close

' 释放对象
Set outFile = Nothing
Set files = Nothing
Set folder = Nothing
Set fso = Nothing

你可以将上述代码复制到记事本中，然后将文件保存为 .vbs 文件，双击运行即可。注意，代码中的文件夹路径和输出文件路径需要根据自己的需要进行修改。