DataMystic

Code: Select all

'FileWatcher script - rename files to .bak if they exist

Option Explicit

dim objArgs
dim fso
dim filename
dim folder

Set fso = CreateObject("Scripting.FileSystemObject")

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


for each filename in objArgs

	If fso.FileExists( filename ) Then
		fso.MoveFile filename, filename & ".bak"
	End If

next

Set fso = Nothing
Set objArgs = Nothing