VBScript or Batch file to compress log files and move to another drive

Posted on 2010-08-18
Last Modified: 2012-05-10
I need a VBScript or Batch file to zip all the .log files in the various subfolders of %windows%\System32\LogFiles that are, say 14 days or older and move them to a different drive:\folder.

I found this thing
It's suppose to allow you to script compressing and moving files.  It looks very promising, but I got an error when I ran one of the sample batch files.

Thanks in advance.
Question by:megnin
  • 4
  • 3

Author Comment

ID: 33468899
I found this and modified the folder path to mine, but this script only does one folder.  I need to look in about 28 folders in the LogFiles folder and process each of them.  I haven't tested the code below either...

'' This script will find logs that are more than a day old and ''

'' compress them.                                              ''


Option Explicit


Dim objFSO, objFolder, objFiles, objShell

Dim file, fileExt, fileName, strCommand, strRun, strFile

Dim Folder, Extension, DaysOld, log

Dim strYear, strMonth, strDay, strHour, strMinute, strSecond 


Const ForReading = 1, ForWriting = 2, ForAppending = 8




Folder = "C:\WINDOWS\system32\LogFiles"      'Folder to look in

Extension = "log"        'Extension of files you want to zip

DaysOld = 7        'Zip files older than this many days



'Create object for playing with files

Set objFSO = CreateObject("Scripting.FileSystemObject")


'Create shell object for running commands

Set objShell = wscript.createObject("")


'Set folder to look in

Set objFolder = objFSO.GetFolder(Folder)


'Get files in folder

Set objFiles = objFolder.Files


'Set text file to write to

FileName = "C:\WINDOWS\system32\LogFiles\Log_Processing.txt"


Set log = objFSO.OpenTextFile(FileName, ForAppending)



'Loop through the files

        For Each file in objFiles

          fileName = Split(file.Name, ".")

          fileExt = fileName(UBound(fileName))

          'See if it is the type of file we are looking for

          If fileExt = Extension Then

            'See if the file is older than the days chosen above

            If DateDiff("d", file.DateLastModified, Now()) >= DaysOld Then

              strFile = file.Path

              strCommand = "7z -mx=7 -y a C:\WINDOWS\system32\LogFiles\web_log_compressed\" & _

                ShortDateTime(Now) & ".zip " & Chr(34) & strFile & Chr(34)

              strRun = objShell.Run(strCommand, 0, True)

              log.WriteLine strCommand


              log.WriteLine "Deleted " & strFile

            End If


          End If




        Set objFiles = Nothing

        Set objFolder = Nothing

        Set objFSO = Nothing

        Set objShell = Nothing



Function ShortDateTime(dtmTime)

    strYear = Year(dtmTime)

    strMonth = Right("0" & Month(dtmTime), 2)

    strDay = Right("0" & Day(dtmTime), 2)

    strHour = Right("0" & Hour(dtmTime), 2)

    strMinute = Right("0" & Minute(dtmTime), 2)

    strSecond = Right("0" & Second(dtmTime), 2)


    ShortDateTime = strYear & strMonth & strDay & "-" & strHour & strMinute & strSecond

End Function

Open in new window

LVL 52

Expert Comment

by:Bill Prew
ID: 33469200
WHy not just use WinZip with the commandline version, and do it all with one neat little command?  Something like this should do the job:

wzzip -m -Td14 "d:\destfolder\" "%windows%\System32\LogFiles"


Author Comment

ID: 33469257
I guess that woud be the simplest way to do it.  There is really no good reason to do each folder separately.  I've never used the commandline version of WinZip.  If it will grab just the *.log files that are >14 days old from all the sub folders then that will work a charm.
Can you have it delete the source files after zipping them?  It doesn't help if they are left lying around.  I need to do this to free up hard drive space on a db server.
DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

LVL 52

Accepted Solution

Bill Prew earned 500 total points
ID: 33469312
Yes, wzzip can delete the source files, I added the -m option to the command line (standing for move) that does exactly that.  And yes, it could handle just *.log files like:

wzzip -m -Td14 "d:\destfolder\" "%windows%\System32\LogFiles\*.log"


Author Closing Comment

ID: 33469854
Thank you so much!  Now we can free up enough space on the system drive of our SQL Server to do an upgrade.
You just saved my company $15,000.00 by not having to buy a new server.  ;-)
LVL 52

Expert Comment

by:Bill Prew
ID: 33470877
Excellent, glad I suggested that, and glad it worked out.  Thanks for the grade, when can I expect my cut of the savings... :-)


Author Comment

ID: 33474143
Post your bank account number and routing number here and I'll have it wired.  ;-)

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Script is being strange 8 63
Carriage Return in Batch File 5 37
Bulk Reorder File Names 4 56
Run a .bat file wich is inside a .vbs file 8 24
Introduction: Recently, I got a requirement to zip all files individually with batch file script in Windows OS. I don't know much about scripting, but I searched Google and found a lot of examples and websites to complete my task. Finally, I was ab…
Use this article to create a batch file to backup a Microsoft SQL Server database to a Windows folder.  The folder can be on the local hard drive or on a network share.  This batch file will query the SQL server to get the current date & time and wi…
The viewer will learn how to dynamically set the form action using jQuery.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now