vbs解压文件

最新推荐文章于 2021-05-15 13:12:28 发布

草根九一定律

最新推荐文章于 2021-05-15 13:12:28 发布

阅读量1.1k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBS

本文链接：https://blog.youkuaiyun.com/perfect_bug/article/details/113920515

VBS 专栏收录该内容

2 篇文章

订阅专栏

这段代码展示了如何使用VBA（Visual Basic for Applications）来解压缩ZIP文件到目标目录。通过创建`Scripting.FileSystemObject`和`Shell.Application`对象，它首先检查ZIP文件是否存在且扩展名为ZIP，然后创建目标目录（如果不存在），最后使用`CopyHere`方法将ZIP文件内容解压到目标目录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

直接上代码

Sub UnZip(ByVal myZipFile, ByVal myTargetDir)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If NOT fso.FileExists(myZipFile) Then
        Exit Sub
    ElseIf fso.GetExtensionName(myZipFile) <> "zip" Then
        Exit Sub
    ElseIf NOT fso.FolderExists(myTargetDir) Then
        fso.CreateFolder(myTargetDir)
    End If
	Set objShell = CreateObject("Shell.Application")
    Set objSource = objShell.NameSpace(myZipFile)
    Set objFolderItem = objSource.Items()
    Set objTarget = objShell.NameSpace(myTargetDir)
    intOptions = 256
    objTarget.CopyHere objFolderItem, intOptions
End Sub
UnZip "C:\Users\Desktop.zip","C:\Users\Desktop\2"