It doesn't work.

This is one of my last creations:

BREAK ON
$filename = "*.exe"
$startdir = "d:\users\"
$tmpfile = "d:\log\files.txt"
CD "$startdir"
SHELL "%comspec% /c dir /s /b $filename > $tmpfile"
; sleep 20
$nul = open(1,$tmpfile,2)
$filename = readline(1)
while @error = 0

? $filename

$CompanyName = GETFILEVERSION ($FileName,"CompanyName")
$FileVersion = GETFILEVERSION ($FileName,"FileVersion")
$FileDescription = GETFILEVERSION ($Filename,"FileDescription")
$ProductName = GETFILEVERSION ($Filename,"ProductName")
IF $CompanyName <> ""
$result=setconsole('show')
$LogFile="e:\filelogw.TXT"
$LogData = $FileName + Chr(9) + $FileDescription + Chr(9) + $FileVersion + Chr(9) + $CompanyName+ Chr(9) + $ProductName + Chr(13) + Chr(10)
$result=0
$n=0
$result=Open(1, $LogFile, 5)
If $result<>0
$result=WriteLine(1, $LogData)
$result=Close(1)
Endif
$n=$n+1
ENDIF
;$FileName = Dir("")

$filename = readline(1)
? $filename
Loop
CLS

I've used a do..until loop and it gives the same results.

Co