Link to home
Start Free TrialLog in
Avatar of David Megnin
David MegninFlag for United States of America

asked on

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

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  http://winadmin.forret.com/scripts/warmzip/
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.
Avatar of David Megnin
David Megnin
Flag of United States of America image

ASKER

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
 
         
'''' SET THESE VARIABLES! ''''
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("wscript.shell")
         
'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
              file.Delete
              log.WriteLine "Deleted " & strFile
            End If
            
          End If
        Next
         
        'Cleanup
        Set objFiles = Nothing
        Set objFolder = Nothing
        Set objFSO = Nothing
        Set objShell = Nothing
        wscript.Quit
        
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

Avatar of Bill Prew
Bill Prew

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\destfile.zip" "%windows%\System32\LogFiles"

~bp
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.
ASKER CERTIFIED SOLUTION
Avatar of Bill Prew
Bill Prew

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
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.  ;-)
Excellent, glad I suggested that, and glad it worked out.  Thanks for the grade, when can I expect my cut of the savings... :-)

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