[已解决]为什么shell.application解压文件用NameSpace方法获取存在的文件返回nothing

LTSC1809 · 发表于 2025-7-18 22:19:30

本帖最后由 LTSC1809 于 2025-7-20 13:57 编辑

Dim oShApp,oSourceFile,oItem,oTarget,oArgs,nOptions,oFs,sLibTemp
Randomize
sLibTemp="CLauncherTemp_"&CStr(Int(10*Rnd()))&CStr(Int(10*Rnd()))&CStr(Int(10*Rnd()))
Set oArgs=WScript.Arguments
Set oFs=CreateObject("Scripting.FileSystemObject")
oFs.MoveFile oArgs.Item(0),oArgs.Item(0)&".zip"
Set oShApp=CreateObject("Shell.Application")
If oFs.FolderExists(oArgs.Item(1))=False Then oFs.CreateFolder(oArgs.Item(1))
Do While(oFs.FolderExists(sLibTemp)=True)
sLibTemp="CLauncherTemp_"&CStr(Int(10*Rnd()))&CStr(Int(10*Rnd()))&CStr(Int(10*Rnd()))
Loop
Set oSourceFile=oShApp.NameSpace(oArgs.Item(0)&".zip")
Set oItem=oSourceFile.Items()
oFs.CreateFolder(sLibTemp)
Set oTarget=oShApp.NameSpace(sLibTemp)
nOptions=256
oTarget.CopyHere oItem,nOptions
oFs.MoveFile oArgs.Item(0)&".zip",oArgs.Item(0)
oFs.CopyFile sLibTemp&"\*.dll",oArgs.Item(1),True
oFs.DeleteFolder(sLibTemp)

复制代码

如上代码用于把传入的第一个参数（一个jar文件）解压到指定文件夹（第二个参数指定文件夹）。Shell.Application解压文件的方法我是从网上抄的。由于它只支持后缀是.zip的文件，jar虽然也是zip格式但是它不认，所以先把源文件jar加上.zip，解压完毕再改回来。由于直接解压到目标文件夹如果已经存在会弹窗询问是否替换，所以创建临时文件夹，把文件解压到临时文件夹，再复制到目标文件夹，设置替换，就不会弹窗询问是否替换了。由于需要这个脚本同时启动多个进程解压不同文件，因此创建一个目前不存在的随机数临时文件夹。现在的问题是，我一开始采用直接解压到目标文件夹的方式时，工作正常，现在加入了临时文件夹却会在Set oItem=oSourceFile.Items()这里报错提示缺少对象。使用vbsedit调试发现这里oSourceFile为Nothing。明明这个文件(oArgs.Item(0)&".zip"已经存在了，我在这里用oFs.FileExist检查也确实提示文件已经存在了，但是NameSpace方法还是返回Nothing？麻烦大佬们帮忙看看，谢谢！

Five66 · 发表于 2025-7-18 22:53:13

NameSpace方法参数是文件夹(字符串)
https://learn.microsoft.com/zh-c ... ell/shell-namespace

LTSC1809 · 发表于 2025-7-18 23:05:22

回复 2# Five66

好的，谢谢！顺便问问，用shell.application，怎么解压文件？这个文档中设置的是文件夹，那我怎么做才能解压zip文件？

Five66 · 发表于 2025-7-19 00:46:29

试试
zip文件用完整路径
oSourceFile和oTarge使用不同变量对应的shell.NameSpace

aloha20200628 · 发表于 2025-7-19 14:02:25

本帖最后由 aloha20200628 于 2025-7-19 14:16 编辑

回复 1# LTSC1809

给一个 bat+jscript 示例代码（存为 test.bat 运行），说明采用 .copyHere 解压zip文件的基本方法
代码第2行自定义变量 zipF 指定压缩包文件（须为全路径文件名），自定义变量 zipD 指定解压文件的到达目录（须为全路径目录名）；代码第7行采用 .copyHere 选项参数=20，即关闭进程报告和提示确认

2>1/* ::
@echo off &setlocal &set "zipF=c:\abc\1.zip" &set "zipD=c:\xyz"
cscript /nologo /e:jscript "%~f0" "%zipF%" "%zipD%"
pause&exit/b */
v=WSH.arguments, sa=WSH.createobject('shell.application')
f=sa.namespace(v(0)), d=sa.namespace(v(1))
d.copyhere(f.items(), 20), WSH.quit();

复制代码

用系统内置的 .copyHere 解压zip文件是一个比较古老的方法，限制较多且处理大数据时效率较低，远逊于那些著名的第三方解压工具，这也是后者能够日益普及的原因吧...

LTSC1809 · 发表于 2025-7-20 13:54:13

回复 5# aloha20200628

主要是我想把这个文件跟随一个程序发布，万一别人电脑上没有winrar或者7z之类呢，感谢了，已经解决了，我发现目标文件夹必须最后有个反斜杠才能行😃

LTSC1809 · 发表于 2025-7-20 13:55:50

回复 4# Five66 感谢了，找到问题了，目标文件夹最后需要反斜杠，没有反斜杠就不行😄

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] [已解决]为什么shell.application解压文件用NameSpace方法获取存在的文件返回nothing

评分

评分