Maybe this can help you getting started using the DIRPlus() Function
 Code:
;Script Options
Break On
Dim $RC
$RC = SetOption('Explicit','On')
$RC = SetOption('NoVarsInStrings','On')
$RC = SetOption('NoMacrosInStrings','On')

;Declare Variables
Dim $Directory, $DirInfo, $DirItem

;Initialize Variables
$Directory = 'C:\Script'

;Code
;'/A-D' only searches for files
$DirInfo = DirPlus($Directory,'/A-D')
For Each $DirItem in $DirInfo
	'1. ' $DirItem.Path ?
	'2. ' $DirItem.Name ?
	'3. ' $DirItem.Drive ?
	'4. ' $DirItem.Type ?
	'5. ' $DirItem.DateCreated ?
	'6. ' $DirItem.DateLastAccessed ?
	'7. ' $DirItem.DateLastModified ?
	'8. ' $DirItem.Size ?
	?
Next

;If needed, Get $RC fakes a kind of pause
;so you get time to read the result window
Get $RC

$DirItem = ''
$DirInfo = ''

;UDF
;Paste here the DIRPlus UDF
;http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=82153