用AI整了一个获取当前位置文件的脚本

将代码复制进记事本里，后缀名改为.vbs即可使用，可将当前路径的文件的名字写入到mulu.txt文件里

Option Explicit

Dim fso, folder, files, file
Dim outputFileName, outputFile
Dim objShell
Set objShell = CreateObject("WScript.Shell")

' 获取当前目录路径
Dim currentDirectory
currentDirectory = objShell.CurrentDirectory

' 输出文件名
outputFileName = currentDirectory & "\mulu.txt"

' 创建文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 检查文件是否存在，如果存在则删除
If fso.FileExists(outputFileName) Then
    fso.DeleteFile outputFileName
End If

' 创建新文件
Set outputFile = fso.CreateTextFile(outputFileName, True)

' 获取当前目录对象
Set folder = fso.GetFolder(currentDirectory)
Set files = folder.Files

' 遍历文件并将文件名写入到 mulu.txt 文件中
For Each file In files
    outputFile.WriteLine file.Name
Next

' 关闭文件
outputFile.Close

MsgBox "Hello, World!"
' 释放对象
Set fso = Nothing
Set folder = Nothing
Set files = Nothing
Set file = Nothing
Set outputFile = Nothing
Set objShell = Nothing