Ok, first time on excel com but this does the trick. Manual helped a bit also cause the excel stuff is taken from it and altered a bit.
Requires Kix 4.51beta 1 because of the Getfiletime enhancements.
Also uses the DirPlus() and the CountFiles() UDF’s

Kix 4.51 B1
DirPlus() - a recursive dir tool
CountFiles() - Counts the number of specified files in a folder

I’m sure it can be golfed down by some of the more experienced com scripters on KORG but it’s my first time to really use com so be gentle

Code:

Break on

$folder = "c:\new folder"
$count = CountFiles($Folder,'*.*') 

$oXL = CreateObject("EXCEL.application")
If @error = 0
	$oXL.Visible = 1	; make Excel visible to the user
	$Rc = $oXL.Workbooks.Add	; add a new workbook
	$array = "Filename", "Creation date"
	$oXL.Range("A1:B1").Value = $array	;add some columns
	$files = dirplus("c:\new folder","/s")
For Each $file In $files
	$time = GetFileTime($File,1)
	?$file
	?$createtime	
	For $i = 1 To $count
     	$oXL.Cells(($i+1),1).Value = $file
     	$oXL.Cells(($i+1),2).Value = $time
   	Next	
Next
	;Format the worksheet
	$oXL.Range("A1:B1").Font.Bold = 1
	$Rc = $oXL.Range("A1:B1").EntireColumn.AutoFit
	$oXL.UserControl = 1
Else
   ? @error + " / " @serror
EndIf

Edited by Mart (2005-09-05 03:20 PM)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.