Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

VBScript FAQ

File and Data Processing

Recursive folder search for a certain file size w/e-mail by computerhighguy
Posted: 20 Aug 07 (Edited 20 Aug 07)

I would like to thank smurfhell for his unbeknownst help on getting this script working.  I had to reference one of his posts to get this working.  Anyway, this particular script searches for ldf files for an SQL database and if it greater than 2GB, it send me an e-mail.  You can easily change this to any extension by modifying


If lcase(Right(objFile.Name,3)) = "ldf" Then

to have any extension.  You can also modify the following line for other file sizes.  



KB = round(objFile.Size/1024,1)
MB = round(objFile.Size/1048576,1)
GB = round(objFile.Size/1073741824,1)

' // **************************************
' //    ComputerHighGuys recursive search
' //     
' //    Date Created: 20 Aug 07
' //
' // Modify the SMTP Server for your SMTP
' //  server. Also change the notifyEmail
' //  address to whatever e-mail addresses
' //  you want to be notified.  Set the
' //  debug to False when you put it into
' //  production.
' // **************************************
SMTPServer = "mail.domain.com"
notifyEmail = "User1@domain.com;user2@domain.com"
setDebug = "True"

' // Directory where the SQL Server is installed
sqlDir = "D:\Program Files\Microsoft SQL Server\"
fileList = ""
set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(sqlDir)
Set colFiles = objFolder.Files


if fileList <> "" then
    If setDebug = "True" then
        wscript.echo fileList
    End If
    Call SendErrorMessage(notifyEmail,fileList)
End if

Sub scanSubFolders(objFolder)
    Set colFolders = objFolder.SubFolders
    For Each objSubFolder In colFolders
        Set colFiles = objSubFolder.Files
        For Each objFile in colFiles
            ' // Looking for SQL Database LDF files.  

            If lcase(Right(objFile.Name,3)) = "ldf" Then
                ' // Getting File size in GB
                If round(objFile.Size/1073741824,1) > 2 then
                    If setDebug = "True" then
                        wscript.echo objFile.Name & "  " & round(objFile.Size/1073741824,1)  & "GB"
                    End if
                    fileList = objFile.Name & "  " & round(objFile.Size/1073741824,1)  & "GB" & vbCRLF & vbCRLF & fileList
                End if    
            End If

End Sub

Sub SendErrorMessage (strDestEmail,errorMsg)

    Set objEmail = CreateObject("CDO.Message")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = WScript.CreateObject ("WScript.Shell")
    If IsNull(strDestEmail) Then
        If debugMode = "True" then
            Wscript.Echo "No email address, no message sent."
        End If
        Exit Sub
    End If

    objEmail.From = "Server@domain.com"
    objEmail.To = strDestEmail
    objEmail.Subject = "Database log files that are greater than 2 GB"
    objEmail.Textbody = errorMsg
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

End Sub

Back to VBScript FAQ Index
Back to VBScript Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close