Vbscript 如何遍历zip文件中的子文件夹并解压缩具有特定扩展名的文件?
基本上,我试图在一个zip文件中解压一些特定的文件(其中有很多垃圾子文件夹) 问题是只有最后一个子文件夹包含我想要的文件。除其他子文件夹外,其他子文件夹将不包含任何文件 以下是我当前使用的代码:Vbscript 如何遍历zip文件中的子文件夹并解压缩具有特定扩展名的文件?,vbscript,Vbscript,基本上,我试图在一个zip文件中解压一些特定的文件(其中有很多垃圾子文件夹) 问题是只有最后一个子文件夹包含我想要的文件。除其他子文件夹外,其他子文件夹将不包含任何文件 以下是我当前使用的代码: ZipFile="C:\Test.zip" ExtractTo="C:\" Set fso = CreateObject("Scripting.FileSystemObject") If NOT fso.FolderExists(ExtractTo) Then fso.CreateF
ZipFile="C:\Test.zip"
ExtractTo="C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If
set objShell = CreateObject("Shell.Application")
set FilesInZip= objShell.NameSpace(ZipFile).items
print "There are " & FilesInZip.Count & " files"
'Output will be 1 because there is only one subfolder there.
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing
我是否可以遍历子文件夹并仅解压缩具有特定扩展名的文件?您可以通过递归过程来实现这一点,该过程调用文件夹项并提取具有特定扩展名的文件项:
Set fso=CreateObject(“Scripting.FileSystemObject”)
Set app=CreateObject(“Shell.Application”)
子ExtractByExtension(fldr、ext、dst)
对于fldr项目中的每个f
如果f.Type=“文件文件夹”,则
ExtractByExtension f.GetFolder,ext,dst
ElseIf LCase(fso.GetExtensionName(f.Name))=LCase(ext)然后
app.NameSpace(dst).CopyHere f.Path
如果结束
下一个
端接头
ExtractByExtension app.NameSpace(“C:\path\to\your.zip”)、“txt”、“C:\output”