中国DOS联盟论坛 - Powered by Discuz! Board

标题: [求助]批量压缩解压XX_(CAB格式)文件及VBS问题求助 [打印本页]

作者: wangjf 时间: 2007-5-13 16:02 标题: [求助]批量压缩解压XX_(CAB格式)文件及VBS问题求助

在压缩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的批处理程序。自己写了很简单的供大家参考。
===============================================

Quote:

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

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

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

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

作者: baomaboy 时间: 2007-5-13 16:07
把Cab_Make.VBS 发上来看看

作者: wangjf 时间: 2007-5-13 16:18
已经上传了

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

作者: baomaboy 时间: 2007-5-13 16:52
看图的样子你要重新安装一下wsh了，或者是你的杀毒软件控制了FSO

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

作者: wangjf 时间: 2007-5-13 18:02
谢谢baomaboy兄，想要生成的就是*.XX_文件。我把标题改了一下。

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

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

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

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

作者: wangjf 时间: 2007-5-13 20:07

Quote:

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”

出现下图的错误

作者: wudixin96 时间: 2007-5-13 20:14

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "notepad"

引号问题。

作者: baomaboy 时间: 2007-5-13 21:17
不要用输入法状态的引号

作者: wangjf 时间: 2007-5-13 21:28
多谢楼上两位，的确是引号的问题。