DataMystic

Code: Select all

'FileWatcher script - Ignore files based on a regular expression.

Option Explicit

dim objArgs
dim fso
dim filename
dim folder

dim myRegExp
set myRegExp = New RegExp
myRegExp.IgnoreCase = False   'no need
myRegExp.Pattern = "\.partial$"               'match everything ending in .partial


Set fso = CreateObject("Scripting.FileSystemObject")

'Set a reference to the arguments
Set objArgs = Wscript.Arguments


for each filename in objArgs

	If not( myRegExp.Execute( filename ) ) Then
		fso.MoveFile filename, "c:\destfolder\"
	End If

next

Set fso = Nothing
Set objArgs = Nothing
Set myRegExp = Nothing