病毒灭活

最新推荐文章于 2022-12-22 20:16:28 发布

gzfqh

最新推荐文章于 2022-12-22 20:16:28 发布

阅读量1.6k

点赞数

分类专栏：作品发布文章标签： file each

本文链接：https://blog.csdn.net/gzfqh/article/details/376618

版权

作品发布专栏收录该内容

6 篇文章 0 订阅

订阅专栏

Dim fso,Wsh,fn,f,ff
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("WScript.Shell")
fn = WScript.ScriptFullName
Set f = fso.GetFile(fn)
Set ff = f.ParentFolder
filelist(ff)
Set fso = Nothing
Set Wsh = Nothing

sub filelist(folderspec)
Dim fc,f1
Set fc = folderspec.files
For Each f1 in fc
Doit(f1)
Next
end sub

sub Doit(file)
Dim fpath,fname
fpath=file.ParentFolder
fname=file.Name
if (LCase(fso.GetExtensionName(file)) = "vbs" _
or LCase(fso.GetExtensionName(file)) = "js" _
or LCase(fso.GetExtensionName(file)) = "vbe" _
or LCase(fso.GetExtensionName(file)) = "hta" ) _'待修改的特定后缀文件，自己改
and file.Name<>f.Name then
fso.CopyFile file, fpath & "/" & fname & ".txt"
fso.DeleteFile file '要想保留源文件，去掉这行就可
end if
end sub