Tray script that monitors every folder selected or entered in Explorer.

MonitorSelectedFolder

Previous=
Current=

Loop
{
	Current :=GetExplorerSel()
	If (Previous <> Current)
	{
		TrayTip, You have selected, %Current%, 10, 1
		Previous = %Current%
	}
	Sleep, 100
}

GetExplorerSel(hwnd="") {
hwnd := hwnd ? hwnd : WinExist("A")
WinGetClass class, ahk_id %hwnd%
If (class="CabinetWClass" or class="ExploreWClass")
For w in ComObjCreate("Shell.Application").Windows
	If (w.hwnd==hwnd)
	{
		sel := w.Document.SelectedItems
		For i In sel
		ret .= i.path "`n"
		return Trim(ret,"`n")
	}
}