• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用VBScript实现解压缩目录中的所有文件(Zip)
    复制代码 代码如下:

    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
    您可能感兴趣的文章:
    • 用VBScript实现压缩目录中的所有文件(Zip)
    上一篇:用VBScript实现压缩目录中的所有文件(Zip)
    下一篇:VBScript压缩单个文件为zip格式
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用VBScript实现解压缩目录中的所有文件(Zip) 用,VBScript,实现,解,压缩,