Files properties
 

Hi Marijan

Run this macro on a empty sheet

Sub test()
rw = 1
For Each p In ActiveWorkbook.BuiltinDocumentProperties
On Error Resume Next
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
On Error GoTo 0
Next
End Sub


Or this

With ActiveWorkbook.BuiltinDocumentProperties
Cells(1, 1).Value = .Item("Last save time")
Cells(2, 1).Value = .Item("Subject")
Cells(3, 1).Value = .Item("Manager")
Cells(4, 1).Value = .Item("Author")
Cells(5, 1).Value = .Item("Keywords")
Cells(6, 1).Value = .Item("Comments")
Cells(7, 1).Value = .Item("Company")
End With



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Marijan Glavac" wrote in message ...
Hi,

how to get files properties through code ( when is file created,modified...)
?

Thanks in advance..
Marijan