Get preliminar file info

hi

i want to know if there are one way to get file info without open the document (just like appears in Open window when file is only selected).

My goal is recollect all those files with specific resolution into a collection, to process them later; if it exist the method, can get the resolution too?

i don't want to spend ALL the time openning ALL my images only to get resolution value, i'll process 80,000 images!

Thx!

some of my code is:

Sub Redimensiona(ByVal File_Collection As Collection, ByVal ress As Integer)
'
Dim Img_Collection As New Collection
Dim sw As Integer
Dim sh As Integer
Dim rw As Integer
Dim i As Integer
Dim ic as Variant

For Each ic In File_Collection
i = i + 1
OpenDocument (File_Collection(i))
'
' I dont want to do the line before
'
sw = ActiveDocument.SizeWidth
sh = ActiveDocument.SizeHeight
rw = ActiveDocument.DpiX

If rw = ress Then Img_Collection.Add Coleccion_Arch(i)