仅使用Windows自带功能在命令行下批量解压ZIP文件

憨吃迷糊睡

https://code.google.com/p/xiaoch ... ip&can=2&q=

>>>type unzipvbs.vbs
Call unzip(Wscript.Arguments(0), Wscript.Arguments(1))

Function unzip(fromZipFile, toDestFolder)
    Dim Scripting_FileSystemObject
    Dim Shell_Application
   
    Set Scripting_FileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set Shell_Application = CreateObject("Shell.Application")
   
    If (fromZipFile <> "" And toDestFolder <> "") Then
        If Scripting_FileSystemObject.FileExists(fromZipFile) Then
            If Scripting_FileSystemObject.FolderExists(toDestFolder) Then
                Scripting_FileSystemObject.DeleteFolder (toDestFolder)
            End If
            
            Scripting_FileSystemObject.CreateFolder (toDestFolder)
            
            Shell_Application.Namespace(toDestFolder).Copyhere Shell_Application.Namespace(fromZipFile).Items
        End If
    End If
   
    Set Shell_Application = Nothing
    Set Scripting_FileSystemObject = Nothing
End Function

>>>type unzipbat.bat
@echo off
CScript/Nologo .\unzipvbs.vbs %1 %2

>>>type test.bat
@echo off

call .\unzipbat.bat C:\JAVA\unzip\unzip.zip C:\JAVA\unzip\out

憨吃迷糊睡

不用再安装WinZIP、WinRAR等软件了

上官无忌

人家用rar压个 压缩包你就完蛋了.

憨吃迷糊睡

上官无忌 发表于 2013-12-12 21:07
人家用rar压个 压缩包你就完蛋了.

客户的电脑不让安装额外的软件，所以限定在ZIP格式上了