vbs解压文件

news/2024/11/24 6:27:14/

直接上代码

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

http://www.ppmy.cn/news/740613.html

Java8中HashMap的一些新的特性和优化

特性 Java中Map新增的特性主要包括： default方法：在Java 8中，Map接口新增了一些default方法，如forEach、replace、replaceAll等，可以方便地进行元素遍历和替换操作。 compute方法：在Java 8中&#xff0c…

VBS遍历文件

一下这段代码是我自己无聊是写的，希望对有用得上的人有帮助。用处嘛，见标题。 dim fso 这一行可以不写set fso createObject("scripting.fileSystemObject")sub traverse(address)set folder fso.getFolder(address)Set folds folder.su…

创建文本文件 Set objFSO CreateObject("Scripting.FileSystemObject")Set objFile objFSO.CreateTextFile("C:/FSO/ScriptLog.txt") 检察文件是否存在 Set objFSO CreateObject("Scripting.FileSystemObject")If objFSO.FileExists("…

.VBS后缀文件

PHP交流群:294088839 Python交流群:652376983 vbs VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Editon。（微软公司可视化BASIC脚本版）。恶作剧代码 on error resume next dim WSHshellA set WSHshell…

vbs 删除文件.

Dim oFSO,a,b,fs SET bWSCRIPT.CreateObject("WSCRIPT.SHELL") b.POPUP("确定要删除C盘1.txt文件？") On Error Resume Next Set oFSO CreateObject("Scripting.FileSystemObject") Set …

vbs复制自身到启动文件夹

dim fso set fsoCreateObject("scripting.FileSystemObject") set Wsh WScript.CreateObject("WScript.Shell") pathname Wsh.SpecialFolders("startup")"\" 获取启动文件夹 fso.GetFile(WScript.ScriptFullName).Copy(pathname&am…

VBS的加密跟解密

VBS加密: 复制以下代码，用记事本另存为，“VBS加密” 保存。 set fsocreateobject("scripting.filesystemobject") scfinputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs") set opfso.opentextfile(sc…

VBS下载文件

把以下代码存成.VBS，然后在命令行里调用。参数为：网址本地文件 dim url dim file Set objArgs WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename") Else url objAr…