Skip to main content

How to watch for a file in a folder in VBS and handle locked files

The following Visual Basic Script allows you to  monitor a folder for new files. The script will try to process the file if the file is still locked by the application that created the file, an error will occur and the script will handle it by waiting a growing amount of time and then retrying to use the file.

The script will also send an email alert about the error raised:

strComputer = "."
strPathToWatch = "C:\backups\"

Sub SendMailMessage(to_address, subject, msg)
	dim sch, cdoConfig, cdoMessage
    sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set cdoConfig = CreateObject("CDO.Configuration") 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "yoursmtpserver" 
        .update 
    End With 
    Set cdoMessage = CreateObject("CDO.Message") 
    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "script-error@yourcompany.com" 
        .To = to_address 
        .Subject = subject
        .TextBody =  msg
        .Send 
    End With 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing  
End Sub

'Build the queries that will monitor for new files
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\cimv2")

'Change the following query when you want to watch a folder different from D:\\\\
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=""C:\\\\backups\\\\""'") 

				
'Keep getting the next event. Each event represents the creation of a new file in the specified folder
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    strNewFile = objLatestEvent.TargetInstance.PartComponent
    arrNewFile = Split(strNewFile, "=")
    strFileName = arrNewFile(1)
    strFileName = Replace(strFileName, "\\", "\")
    strFileName = Replace(strFileName, Chr(34), "") 'Gets the full path of the file created
		
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	file_needs_processing = true
	time_to_wait = 40000 'wait 40000 milisenconds (40 seconds) before retrying
	
	Do While file_needs_processing = true
		On Error Resume Next
		Err.Clear
		
		'Do processing here
		if  Err.Number = 0  then  
			'File was succesfully processed, disable the error handling, rename and delete the file
			On Error GOTO 0
			'Stop trying to process this file, we are done
			file_needs_processing = false
		else
			'An error occurred, send an email with the error message, make the script wait a period of time and then try again to process the file
			err_msg = "Error # " & CStr(Err.Number) & " " & Err.Description & " File: " & strFileName
			On Error GOTO 0
			SendMailMessage "you@yourcompany.com" , "File Failed, going to re-try in " & Cstr(time_to_wait / 1000) & " seconds", err_msg
			WScript.Echo err_msg
			WScript.Echo "Waiting for file to be ready... going to re-try in " & Cstr(time_to_wait / 1000) & " seconds"
			WScript.Sleep time_to_wait
			time_to_wait = time_to_wait + 30000 'add 30 seconds to wait period
		end if
	loop
Loop

Comments

Post a Comment

Popular posts from this blog

Mail labels and letter templates for jasperreports

The following are free (MIT license) mailing labels and letter templates for jasperreports that you can download and use in jasperserver and/or ireport: Update 3/15/2011 : I moved the Mail templates zip file here . Please consider making a small donation if the templates are of help to you, Thank you! If you need more information on how to use those templates please leave a comment in the blog.
14 comments
Read more

How to create online multiplayer HTML5 games in Contruct2

  Construct2 can use websockets to send and receive messages between games. By using socket-io , we can use a Node.js script as the server and my modification to the socket-io plugin for Construct2 to allow the games to synchronize data between them in real-time. There are two parts to this design: the Node.js server and the Construct2 clients (the games playing). The main part of building an online multiplayer HTML5 game is to plan: how the clients will communicate how often and what to communicate how much of the logic will go into the server and how much to the client. In my sample game, I chose to have each client own a player and have the server just relay messages: Use string messages in the form TypeOfMessage, Parameter1, Paremeter2, Parater3, etc to communicate. Have the clients send their player position about 16 times a second. Whenever their player shoots, the client needs to send a message immediately. Almost all of the game logic will...
9 comments
Read more

Send Email from C# using Outlook's COM late binding

The following sample code shows how to send emails from Outlook and Exchange using C#. This code works with any version of Outlook because it uses Late Binding to automate Outlook. Parts of the code where taken from other websites. using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Reflection; using System.Threading; namespace LateBindingTest { class OutlookEmailerLateBinding { private object oApp; private object oNameSpace; private object oOutboxFolder; public OutlookEmailerLateBinding() { Type outlook_app_type; object[] parameter = new object[1]; //Get the excel object outlook_app_type = Type.GetTypeFromProgID("Outlook.Application"); //Create instance of excel oApp = Activator.CreateInstance(outlook_app_type); //Set the parameter which u want to set parameter[0] = "MAPI...
5 comments
Read more