Dim oShell, oFS, sScript, sScriptPath

    'Create a Shell and FileSystem Object - always useful :)
    Set oShell = WScript.CreateObject("WScript.Shell")
    Set oFS = CreateObject("Scripting.FileSystemObject")
    sScript = Wscript.ScriptFullName 				'Name, including the path, of this script
    sScriptPath = oFS.GetAbsolutePathName(sScript & "\..") 	'Path to this script

	folderPath =  "C:\TestTiffFiles"		' will need changing (Global Variable?)
	FileToLogTo =  "ProcessedFiles.log"		' as will this

	LogAction "Started processing from " & folderPath  'call to a sub routine, see below

	If (oFS.FolderExists(folderPath)) Then 
		ForEachFolder folderPath, True  'call to the recursive function
	End If


' End of script

'----------------------------------------------------------------------
Private Sub ForEachFolder(ByVal Source_Folder, doSubFolders)
'----------------------------------------------------------------------
'The second argument allow you not to use the recursivity.
Dim fso, f, file, fileCollection, prefix, ext, pos

    Dim oFolder, aFolders, FolderCollection
    Dim sFilename, oFile

    Set aFolders = oFS.GetFolder(Source_Folder)
    Set FolderCollection = aFolders.SubFolders

    'will not do any files in any folders that contain the word Processed
    pos = InStr(1,Source_Folder, "Processed",1) 'case in-sensitive match
    If pos > 0 then
         'LogAction  "NOT processing from " & Source_Folder
         Exit Sub
    end if

    Set f = oFS.GetFolder(Source_Folder)
    Set fileCollection = f.Files

    For Each file in fileCollection
		' Do something with each file here by passing the file object to a sub
		ProcessFile file
	Next

    If doSubFolders Then  ' This bit calls this sub for each folder in the root folder
        For Each oFolder in FolderCollection
            Call ForEachFolder(oFS.GetAbsolutePathName(Source_Folder & "\" & oFolder.Name&"\"),doSubFolders)
        Next
    End If

    Set oFile = Nothing
    Set aFolders = Nothing
    Set FolderCollection = Nothing

End Sub

'----------------------------------------------------------------------
Sub ProcessFile (file)
'----------------------------------------------------------------------
'place holder sub, place your processing for each file here
'After processing, use the oFS (filesystem) object to move the file somewhere you won't process again (Processed Folder)

End Sub


'----------------------------------------------------------------------
Sub LogAction (Entry)  'Helper Sub
'----------------------------------------------------------------------
	Dim f, LogFile
	'msgbox Entry
	LogFile = ExecutingFrom & fileToLogTo

	Const ForReading = 1, ForWriting = 2, ForAppending = 8

	On Error Resume Next
	set f = oFS.OpenTextFile(LogFile, ForAppending, True)
	f.WriteLine "[ " & Now & " ] - " & Entry
	f.close

	On Error Goto 0
	set f = Nothing

End Sub

'----------------------------------------------------------------------
Function ExecutingFrom()   'Helper Function
'----------------------------------------------------------------------
	Dim ScriptPath

	ScriptPath=Left(wscript.scriptfullname, _
	Len(wscript.scriptfullname)-Len(wscript.scriptname)) ''will need changing to a global variaqble

	If Right(ScriptPath,1) <> "\" Then
		ScriptPath = ScriptPath & "\"
	End If

	ExecutingFrom = ScriptPath

End Function