You are probably going to want to do something like -

code:

---

BREAK ON CLS
? "Looking at files...  Please Wait."
$FileName = Dir("%windir%\system32\*")
While $FileName <> "" and @ERROR = 0
	? $FileName
	$CompanyName = GETFILEVERSION ($FileName,"CompanyName")
	$FileVersion = GETFILEVERSION ($FileName,"FileVersion")
	IF $CompanyName <> ""
	;? $FileName
	;? $CompanyName
	;? $FileVersion
	$result=setconsole('show')
	$LogFile="C:\filelogw.TXT"
	   $LogData = $FileName + Chr(9) + $FileVersion + Chr(9) + $CompanyName + 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("") 
Loop
CLS
? "Thanks, we are now done."
Sleep 2

---

If you want to Enumerate all of the Directories on your drive, look at the example provided by Ruud called - ENUMDIR.KIX provided in the KIXTART Archive.

HTH,

- Kent