?
Solved

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

Posted on 2010-08-18
7
Medium Priority
?
1,517 Views
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  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.
0
Comment
Question by:megnin
  • 4
  • 3
7 Comments
 
LVL 1

Author Comment

by:megnin
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
 
         
'''' 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
 
LVL 59

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

~bp
0
 
LVL 1

Author Comment

by:megnin
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.
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 59

Accepted Solution

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

~bp
0
 
LVL 1

Author Closing Comment

by:megnin
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.  ;-)
0
 
LVL 59

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... :-)

~bp
0
 
LVL 1

Author Comment

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

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
The Windows functions GetTickCount and timeGetTime retrieve the number of milliseconds since the system was started. However, the value is stored in a DWORD, which means that it wraps around to zero every 49.7 days. This article shows how to solve t…
Learn the basics of modules and packages in Python. Every Python file is a module, ending in the suffix: .py: Modules are a collection of functions and variables.: Packages are a collection of modules.: Module functions and variables are accessed us…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
Suggested Courses
Course of the Month17 days, 12 hours left to enroll

831 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