Save as rename_files.vbs
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
Parameters: <full path\>rename_files.vbs %FILE%