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.
LVL 1
megninAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

megninAuthor Commented:
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

0
Bill PrewCommented:
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
0
megninAuthor Commented:
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.
0
Introduction to R

R is considered the predominant language for data scientist and statisticians. Learn how to use R for your own data science projects.

Bill PrewCommented:
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\destfile.zip" "%windows%\System32\LogFiles\*.log"

~bp
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
megninAuthor Commented:
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.  ;-)
0
Bill PrewCommented:
Excellent, glad I suggested that, and glad it worked out.  Thanks for the grade, when can I expect my cut of the savings... :-)

~bp
0
megninAuthor Commented:
Post your bank account number and routing number here and I'll have it wired.  ;-)
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.