Global strFile := A_ScriptDir . "\Liste.txt"
FileDelete, %strFile%
Sub(A_ScriptDir . "\*.*", 0)
run, %strFile%
ToolTip,
Exit
Sub(strDir, intLevel)
{
ToolTip, Level #%intLevel% %strDir%
Loop, %intLevel%
strTabs := strTabs . A_Tab
Loop, %strDir%, 2 ; scan folders
{
FileAppend, %strTabs%\%A_LoopFileName%`n, %strFile%
Sub(A_LoopFileFullPath . "\*.*", intLevel + 1) ; Recurse to subdirectory
}
Loop, %strDir%, 0 ; now scan files only
{
FileAppend, %strTabs%\%A_LoopFileName%`n, %strFile%
if A_LoopFileExt=php
{
needle=readdbAssy
needle=dbassy
FileRead, ttext, %A_LoopFilePath%
if (instr(ttext,needle)>0)
MsgBox %A_LoopFilePath% found
}
}
}
