无法使用 VBScript 压缩 1 GB 文件

Question

我有一个执行以下任务的批处理脚本。
1. 创建备份文件夹
2. 压缩特定文件（.log 格式的文本文件）并将压缩文件移动到备份文件夹
3.移动后删除原文件

为了完成第二个任务，我将命令从批处理脚本写入 VBScript 文件，如下所示，然后在批处理脚本结束时执行 VBScript。

echo Option Explicit >> zipIt.vbs
REM remaining commands
CScript zipIt.vbs

批处理脚本成功地执行了大小为 100 MB 的文件的所有 3 个任务。 但是对于大小为 1 GB 的文件，VBScript 命令失败。在命令提示符处抛出以下错误

C:\Users\Administrator\Desktop\zipIt.vbs(18, 1) Microsoft VBScript runtime error
: Permission denied

下面是zipIt.vbs的内容，为了方便，这里写了行号。

1. Option Explicit 
2. Dim FileToZip, Result 
3. Dim oShell 
4. Dim file 
5. Dim oFileSys 
6. Dim winShell 
7. FileToZip = "C:\Program Files\logs\File_2013-04-29.log" 
8. Result = "C:\Program Files\logs\File_2013-04-29.log.zip" 
9. Set oShell = CreateObject("WScript.Shell") 
10. Set oFileSys = CreateObject("Scripting.FileSystemObject") 
11. Set file = oFileSys.CreateTextFile(Result, True) 
12. file.Write "PK" & Chr(5) & Chr(6) & String(18, 0) 
13. file.Close 
14. Set file = nothing 
15. set winShell = createObject("shell.application") 
16. winShell.namespace(Result).CopyHere FileToZip 
17. wScript.Sleep(5000) 
18. oFileSys.DeleteFile FileToZip

如果单独运行 VBScript，则会出现同样的错误。是因为文件大吗？

Answer 1

这绝对是内存问题，因为应用程序的上限为 2GB，至少在 Windows 中，这很可能是程序试图访问未分配的内存的问题。

Answer 2

替代解决方案

将大日志文件分成小块：

BreakFile = "C:\Users\Administrador\Desktop\Test.txt"
limit = 400000 ' Bytes

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Breakfile, 1)

FiletoSplit = objFSO.GetFileName(BreakFile)
FolderDest = Mid(objFSO.GetAbsolutePathName(BreakFile),1,Len(objFSO.GetAbsolutePathName(BreakFile))-(Len(FiletoSplit)))
FileSplitName = objFSO.GetBaseName(BreakFile)
dtmStart = Now()

Set objFile = objFSO.OpenTextFile(Breakfile, 1)
strContents = objFile.ReadAll
FileNum = 1
fname = FolderDest & FileSplitName & "Split " & FileNum & ".txt"
Set objFile1 = objFSO.OpenTextFile(fname, 2, True)
CountLines = 0
arrLines = Split(strContents, vbCrLf)
HeaderText = arrLines(0)

For i = 0 to ubound(arrlines)
    strLine = arrLines(i) & vbCrLf
    objFile1.Write strLine
    If (Countlines) < limit Then
        countlines = countlines + 1
    ElseIf Countlines >= limit Then
        objFile1.Close
        Countlines = 0
        FileNum = FileNum + 1
        fname = FolderDest & FileSplitName & "Split " & FileNum & ".txt"
        Set objFile1 = objFSO.OpenTextFile(fname, 2, True)
        objFile1.Write HeaderText & vbCrLf
    End If
Next

objFile.Close
dtmEnd = Now()

然后将它们全部压缩在一起，并在提取内容时，使用这样的“复制/B”批处理命令来加入块：

Copy /B "MyLog_Part*" "MyLog_Complete.log"