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

Comment Utility
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 51

Expert Comment

by:Bill Prew
Comment Utility
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

Comment Utility
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.
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

LVL 51

Accepted Solution

Bill Prew earned 500 total points
Comment Utility
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

Comment Utility
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 51

Expert Comment

by:Bill Prew
Comment Utility
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

Comment Utility
Post your bank account number and routing number here and I'll have it wired.  ;-)

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
This article was inspired by a question here at Experts Exchange ( The requirements stated in that question are (1) reduce the file size of a large number of…
Learn how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.

763 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

9 Experts available now in Live!

Get 1:1 Help Now