复制代码 代码如下:
on error resume next
dim objfso,sourcepath,targetpath
function getzipfile(path)
dim file,folder,sfolder,subfolder,files
if not objfso.folderexists(path) then
msgbox "目标文件夹不存在!"
else
objfso.createfolder targetpath & right(path,len(path)-len(sourcepath))
set folder=objfso.getfolder(path)
set files=folder.files
for each file in files
if strcomp(objfso.getextensionname(file.name),"zip",vbtextcompare)=0 then
objshell.namespace(targetpath & right(path,len(path)-len(sourcepath))).copyhere objshell.namespace(path & "\" & file.name).items(),256
end if
next
set subfolder=folder.subfolders
for each sfolder in subfolder
getzipfile path & "\" & sfolder.name
next
end if
end function
set objfso=server.createobject("scripting.filesystemobject")
set oapp=createobject("shell.application")
sourcepath="c:\zipfiles"
targetpath="d:\tmp\" & objfso.getfilename(sourcepath)
getzipfile sourcepath
set objfso=nothing
set oapp=nothing
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!
网友评论