not sure about this.
as it's quickly translated from some foreign scripting language...

try this and tell does it meet the needs.
if yes, it should meet someone to write it as UDF...

code:
$objShell = CreateObject ("Shell.Application")
$objFolder = objShell.Namespace ("C:\Scripts")
$objFSO = CreateObject("Scripting.FileSystemObject")
Dim $arrHeaders[13]
For $i = 0 to 13
    $arrHeaders[$i] = $objFolder.GetDetailsOf ($objFolder.Items, $i)
Next
For Each $strFileName in $objFolder.Items
    For $i = 0 to 13
        If $i <> 9
            $arrHeaders[$i]+": "+$objFolder.GetDetailsOf ($strFileName, $i) 
        EndIf
    Next
Next
_________________________
!

download KiXnet