Guy,

Here's an Excel way of doing it.

Sub test()
Dim strSubject As String, strAuthor As String, strClient As String

On Error Resume Next
With ActiveWorkbook.BuiltinDocumentProperties
strSubject = .Item("Subject").Value
strAuthor = .Item("Author").Value
End With
With ActiveWorkbook.CustomDocumentProperties
strClient = .Item("Client").Value
End With
On Error GoTo 0

MsgBox "Subject: " & strSubject & vbNewLine & _
"Author: " & strAuthor & vbNewLine & _
"Client: " & strClient
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Guy Cohen" wrote in message
...
Hi all,

I use VB6 to read/fill an Excel file.
I would like to get the properties of the file.

The fields I need a
From Excel:When you click "File"-"Properties" you have:
Subject + Author on the second tab.
Client on the fifth tab.

Please advise.

Guy