*======================================================================================== * Create a log entry in the FILEMON protocol *======================================================================================== *-------------------------------------------------------------------------------------- * find calling method, procedure or program *-------------------------------------------------------------------------------------- Local laStack[1], lcMarker, lnLevel, lcProcedure lnLevel = AStackInfo(laStack)-1 lcProcedure = Substr(Sys(16,m.lnLevel),At(" ",Sys(16,m.lnLevel),1)+1) lcMarker = Proper(Alltrim(Left(m.lcProcedure,At(" ",m.lcProcedure)))) If not Empty(m.lcMarker) lcMarker = m.lcMarker + " in " EndIf lcMarker = m.lcMarker + ; JustStem(Substr(Sys(16,m.lnLevel),At(" ",Sys(16,m.lnLevel),2)+1)) + ; ", "+Transform(laStack[m.lnLevel,5]) lcMarker = "#FILEMON# - " + Chrtran(lcMarker,"\/?","___") *-------------------------------------------------------------------------------------- * Leave a marker *-------------------------------------------------------------------------------------- =Directory(m.lcMarker)Then you can search for #FILEMON# to link file and registry activity with the source code line.