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

Power Automate: SFTP action "Test connection failed"

When I added an SFTP create file action to my Power Automate flow ( https://flow.microsoft.com ) , I got the following error in the action step, within the designer: "Test connection failed" To troubleshoot the Power Automate connection, I had to: go the Power Automate portal then "Data"->"Connections"  the sftp connection was there, I clicked on the ellipsis, and entered the connection info It turns out, that screen provides more details about the connection error. In my case, it was complaining that "SSH host key finger-print xxx format is not supported. It must be in 'MD5' format". I had provided the sha fingerprint that WinScp shows. Instead, I needed to use the MD5 version of the fingerprint. To get that, I had to run in command line (I was in a folder that had openssh in it): ssh -o FingerprintHash=md5 mysftpsite.com To get the fingerprint in MD5 format. I took the string (without the "MD5:" part of the string) and put ...
Post a Comment
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

How to use Windows SSO with OpenXava

One of the nice things about the .NET web environment is the dead easy way to implement Single Sign On in your web apps through Active Directory authentication. In the Java world there are multiple alternatives to use Windows’ Single Sign On with Java based web apps. One of those alternatives is Waffle . Waffle allows your Java web app to authenticate against Active Directory groups (and users). The only caveat is that your web server needs to be running in Windows, which kind of makes sense. In this article, you will learn the steps required to have your OpenXava web application use Waffle to authenticate your Windows users. The first step is to download Waffle from their site and then copy the JAR files outlined in https://github.com/dblock/waffle/blob/master/Docs/tomcat/TomcatSingleSignOnValve.md to the OpenXava’s tomcat server. In your OpenXava project, create servlets.xml in the Web-inf, containing the following: <!-- the role name (the domain gorup) must be e...
Post a Comment
Read more