>*======================================================================================== >* 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.