code:

---

Function ListFiles($DirectoryName)
;  List all filenames in $DirectoryName and all subdirectories beneth it

	$FileName = Dir($DirectoryName + "\*.*")
	While @Error = 0 And $FileName
		If $FileName <> "." And $FileName <> ".."
			If GetFileATTR($DirectoryName + "\" + $FileName) & 16 ; This is a directory, list files using recursion
; Recursion:
;    In this situation we want to list all files in a directory, and all files in all subdirectories under this subdirectory
;    So the function ListFiles(), The function we are inside calls itself when it meets subdirectories
				ListFiles($DirectoryName + "\" + $FileName)        ; Recursion (call MySelf with new parameter) ;)
			Else
				? $DirectoryName + "\" + $FileName
			EndIf
		EndIf
		$FileName = Dir()
	Loop

EndFunction

---

code:

---

Function L($S)
	$=Dir($S + "\*.*")
	While @Error=0 And $
		If $<>"." And $<>".."
			If GetFileATTR($S+"\"+$) & 16
				L($S+"\"+$)
			Else
				?$S+"\"+$
			EndIf
		EndIf
		$=Dir()
	Loop
EndFunction

---

code:

---

Break On

; Dummy-run to fill buffer
L(%WinDir%)

$Start = @Ticks
ListFiles(%WinDir%)
$ElapsedLong = @Ticks + $Start

$Start = @Ticks
L(%WinDir%)
$ElapsedShort = @Ticks + $Start
 
? 'Elapsed time long script : ' + $ElapsedLong
? 'Elapsed time Short script: ' + $ElapsedShort

Get $x
Return

---

quote:

---

"this script is made cryptic so you would not have the temptation to break it and blame my a*s"

how it could be clearer?

---