file attributes via macro
 

Hi ,

is it possible to get an open excel file's attributes via macro e.g last
modified date or created date.

Thanks

file attributes via macro
 

Sub testit()
Dim dpr As DocumentProperty

On Error Resume Next
For Each dpr In ActiveWorkbook.BuiltinDocumentProperties
Select Case dpr.Name
Case "Creation date", "Last save time": MsgBox dpr.Name & ": " &
dpr.Value
End Select
Next
End Sub

Rob

"SUNIL" wrote in message
...
Hi ,

is it possible to get an open excel file's attributes via macro e.g last
modified date or created date.

Thanks

file attributes via macro
 

Sunil,

Look up BuiltinDocumentProperties Property in VBA Help to see what
properties are available.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Rob van Gelder" wrote in message
...
Sub testit()
Dim dpr As DocumentProperty

On Error Resume Next
For Each dpr In ActiveWorkbook.BuiltinDocumentProperties
Select Case dpr.Name
Case "Creation date", "Last save time": MsgBox dpr.Name & ": "
&
dpr.Value
End Select
Next
End Sub

Rob

"SUNIL" wrote in message
...
Hi ,

is it possible to get an open excel file's attributes via macro e.g last
modified date or created date.

Thanks