用VBS解压缩ZIP文件

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

图片批量添加文字手机证件照排版软件服务器地址查询 word中如何取消超链接 ppt取消超链接 word2010奇偶打印设置页码梯形图转换软件江民杀毒软件2010 江民杀毒软件官网网站开发需要多少钱 word草稿 js开发工具 html怎么写js 苹果手机ps软件哪个好 360抢票正在提交订单

专题更多>>

最新文章更多>>

a07葬心

用VBS解压缩ZIP文件

Sub UnZip(ByVal myZipFile, ByVal myTargetDir)
    If NOT fso.FolderExists(myTargetDir) Then
        fso.CreateFolder(myTargetDir)
    End If
    Set objSource = objShell.NameSpace(myZipFile)
    Set objFolderItem = objSource.Items()
    Set objTarget = objShell.NameSpace(myTargetDir)
    objTarget.CopyHere objFolderItem, 256
End Sub

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim objShell,objFolder
Set objShell=CreateObject("Shell.Application")
Set objFolder=objShell.BrowerFolder(0,"choose folder",0,0)
If not objFolder is Nothing then
Unzip "C:\1.zip",objFolder.self.path
End If
Set objFolder=Nothing
Set objShell=Nothing
Set fso=Nothing