中国DOS联盟

在压缩CAB格式文件时，发现使用MakeCAB.EXE压缩文件后，文件的时间属性都会改变，另外凡是基于MakeCAB.EXE的压缩程序都有这个改变时间属性的现象。后经试用发现CABARC.EXE和 Cabinet Manager2003 不会改变压缩后的文件时间属性。
因为经常进行批量压缩操作，就在网上找到了这个软件ExMk_CAB.EXE。它是利用VBS调用CABARC.EXE来压缩和解压的，可以点击右键实现批量压缩和解压，并且在Win2003系统中可以压缩成包含目录的文件。可是前几天一下就无法使用了，窗口提示如图。那位大侠能帮小弟解惑，不胜感谢。
ExMk_CAB.EXE下载地址：
http://zhenlove.com.cn/cndos/fileup/files/ExMk_CAB.zip
出错截图：


===============================================
Cab_Make.VBS脚本：
If WScript.Arguments.Count <> 1 Then WScript.Quit Set FSO = CreateObject("Scripting.FileSystemObject" Set WSS = CreateObject("Wscript.Shell" F = WScript.Arguments(0) If FSO.FileExists(F) Then FileExt = UCase(FSO.GetExtensionName(F)) If FileExt = "CAB" Or Right(FileExt,1) = "_" Then WScript.Quit FilePath = FSO.GetParentFolderName(F) FileFName = FSO.GetFileName(F) FileBName = FSO.GetBaseName(F) TEMP = WSS.ExpandEnvironmentStrings("%TEMP%" If FSO.FileExists(TEMP & "\modifype.tmp" Then FSO.DeleteFile TEMP & "\modifype.tmp",True MpeErr = WSS.Run("MODIFYPE.EXE " & UCase(FSO.GetFile(F).ShortPath) & " -c",0,True) If MpeErr <> 0 Then If FSO.FileExists(TEMP & "\modifype.tmp" Then If FSO.FileExists(F) Then FSO.DeleteFile F,True FSO.MoveFile TEMP & "\modifype.tmp",F End If Call MsgBox("MODIFYPE can't patch " & Chr(34) & FileFName & Chr(34),vbOKOnly,"Error" WScript.Quit End If If FileExt = "" Then FC = UCase(FilePath & "\" & FileBName & "._" Else FC = UCase(FilePath & "\" & FileBName & "." & Mid(FileExt,1,2) & "_" End If CabErr = WSS.Run("CABARC.EXE -m LZX:21 N " & Chr(34) & FC & Chr(34) & " " & Chr(34) & F & Chr(34),1,True) If CabErr <> 0 Then Call MsgBox("CABARC can't compress file " & Chr(34) & FileFName & Chr(34),vbOKOnly,"Error" Else If FSO.FileExists(F) Then FSO.DeleteFile F,True End If End If If FSO.FolderExists(F) Then WSS.CurrentDirectory = F CabErr = WSS.Run("CABARC.EXE -m LZX:21 -p -r N " & Chr(34) & UCase(F) & ".CAB" & Chr(34) & " *.*",1,True) If CabErr <> 0 Then Call MsgBox("CABARC can't compress folder " & Chr(34) & FSO.GetFolder(F).Name & Chr(34),vbOKOnly,"Error" End If End If
==============================================
Cab_Exct.VBS脚本：
If WScript.Arguments.Count <> 1 Then WScript.Quit Set FSO = CreateObject("Scripting.FileSystemObject" Set WSS = CreateObject("Wscript.Shell" F = WScript.Arguments(0) If FSO.FileExists(F) Then FileExt = UCase(FSO.GetExtensionName(F)) FilePFolder = FSO.GetFile(F).ParentFolder FileFName = FSO.GetFileName(F) If FileExt = "CAB" Then FileBName = FSO.GetBaseName(F) NewFolder = FilePFolder & "\" & FileBName If Not FSO.FolderExists(NewFolder) Then FSO.CreateFolder(NewFolder) WSS.CurrentDirectory = NewFolder CabErr = WSS.Run("CABARC.EXE -o -p X " & Chr(34) & F & Chr(34),1,True) If FSO.GetFolder(NewFolder).Size = 0 Then CabErr = 1 If CabErr <> 0 Then WSS.CurrentDirectory = FSO.GetFolder(NewFolder).ParentFolder FSO.DeleteFolder NewFolder,True Call MsgBox("CABARC can't decompress file " & Chr(34) & FileFName & Chr(34),vbOKOnly,"Error" End If WScript.Quit End If If Right(FileExt,1) = "_" Then WSS.CurrentDirectory = FilePFolder CabErr = WSS.Run("CABARC.EXE X " & Chr(34) & F & Chr(34),1,True) If CabErr <> 0 Then Call MsgBox("CABARC can't decompress file " & Chr(34) & FileFName & Chr(34),vbOKOnly,"Error" Else If FSO.FileExists(F) Then FSO.DeleteFile F,True End If WScript.Quit End If End If

===============================================

另外有没有更好的使用右键调用CABARC.EXE批量压缩CAB的批处理程序。自己写了很简单的供大家参考。
===============================================

1. REM Run @ NT/2000/WinXP/Win2003
   
2. @ECHO OFF
   
3. COLOR 21
   
4. 
   
5. TITLE 批量压制当前目录中的所有文件为*.XX_(CAB格式)文件
   
6. IF EXIST %CD%\XX_ RD /S /Q %CD%\XX_
   
7. IF NOT EXIST %CD%\XX_ MD %CD%\XX_
   
8. 
   
9. FOR /F %%i IN ('dir/B/O "%CD%"\*.*') DO CABARC -m LZX:21 N %CD%\XX_\%%i "%CD%"\%%i
   
10. REN %CD%\XX_\*.* *.??_
    
11. ::REG ADD HKCR\*\shell\压制为*.XX_文件(CAB格式)\Command /ve /d MAkeCABs /f
    
12. goto :EOF
    

无奈何发表于： 2007-05-15 00:01

===============================================


[ Last edited by wangjf on 2007-5-15 at 12:03 AM ]

把Cab_Make.VBS 发上来看看

已经上传了

[ Last edited by wangjf on 2007-5-15 at 12:02 AM ]

看图的样子你要重新安装一下wsh了，或者是你的杀毒软件控制了FSO

在我这里运行很正常，只是压完的扩展名居然要手动改成cab，不过解压还是很顺利的。所以那个东西应该没问题啊。要考虑系统环境了。

谢谢baomaboy兄，想要生成的就是*.XX_文件。我把标题改了一下。

我对VBS一点也不了解，所以不知道WSH和FSO指什么，还请仁兄多指点一二。:)

WSH简说就是VBS所需的运行环境你可以搜一下这方面的帮助或教程看具体解释，FSO就是这个环境中被调用来操作文件的对象（Scripting.FileSystemObject）

看那出错提示是文件系统对象出错，所以后面所有用到FSO的语句都瘫痪。
你可以先关了杀毒软件再试试，如果你没装杀毒软件重装wsh或重注册DLL试试

[ Last edited by baomaboy on 2007-5-13 at 06:24 PM ]

Originally posted by baomaboy at 2007-5-13 06:18 PM:
WSH简说就是VBS所需的运行环境你可以搜一下这方面的帮助或教程看具体解释，FSO就是这个环境中被调用来操作文件的对象（Scripting.FileSystemObject）

看 ...

下载WindowsServer2003-Script56-KB917344-x86-chs.exe,安装后CAB_Make.VBS正常了（我的系统是Win2003）。
但这个VBS脚本：
Set objShell = CreateObject(“Wscript.Shell”) objShell.Run “notepad”
出现下图的错误

Set objShell = CreateObject("Wscript.Shell") objShell.Run "notepad"

引号问题。

不要用输入法状态的引号

多谢楼上两位，的确是引号的问题。