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

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