zaqmlp

rem 获取zip文件名称并写入txt
Set fso=CreateObject("Scripting.Filesystemobject")
Set folder=fso.GetFolder(".")
Set files=folder.Files
Set f=fso.CreateTextFile("out.txt",2,True)
For Each file In files
    ext=fso.GetExtensionName(file.Path)
    If LCase(ext) = "zip" Then
        f.WriteLine file.Name
    End If
Next
f.Close
复制代码