Sub RippleFiles (strBaseName, intCopies)
'Will copy files with number added to base name.
'For example, a base name of test.txt gets copied into test1.txt, 
'test1.txt gets copied over test2.txt, etc. The base name file
'is unaffected and is typically updated after this subroutine runs.
'If there is no actual base name file, things still work okay.
'strBaseName should be a full path and file name!
Dim fs
Dim intCounter, intDot
Dim strName, strExtension
intDot = InstrRev(strBaseName, ".")
strName = Left(strBaseName, intDot - 1) 
strExtension = Mid(strBaseName, intDot)
	Set fs = CreateObject("Scripting.FileSystemObject")
	For intCounter = intCopies to 1 Step -1
		If fs.FileExists(strName & Cstr(intCounter - 1) & strExtension) Then
			fs.CopyFile strName & Cstr(intCounter - 1) & strExtension, strName & Cstr(intCounter) & strExtension, True
		End If
	Next
End Sub