File Extended Properties

I have a list of files which contain the full path of the file (dir & filename), how can I get the extended properties for these files?

I try to use the script

Dim arrHeaders(35)
dim sFolder as string

sfolder = "C:Scripts"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(sfolder ) 'objFolder = nothing even after the object is set.

It does work; however, if I were to hard-code the path in the NameSpace("c:Scripts")

For i = 0 to 34
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)Next

For Each strFileName in objFolder.Items
For i = 0 to 34
msgbox objFolder.GetDetailsOf(strFileName, i)
Next
Next

Any thoughts on this?

Thanks.