Retreiving File Title from a folder

[smiths87]

Hi Everybody,
I'm wondering if anybody knows a way to pull the File Title with a macro that already pulls File Name, Size & Date Modified. I can't seem to figure out how to do it, and I don't see it listed in the VBA File-Related Commands in my ref book. Thanks for any help.

 

[John_w]

What type of file is it? If it's an MS Office document you could use the DSOFile ActiveX component like this:

Sub DSOFile_Title()

    'Requires reference to DSO OLE Document Properties Reader 2.1
    'Download this from http://support.microsoft.com/kb/224351, install and select/browse for it in Tools - References in VB Editor

    Dim DSO As DSOFile.OleDocumentProperties
    Dim filename As String
    
    Set DSO = New DSOFile.OleDocumentProperties
    
    filename = "F:\temp\excel\test.xls"
    
    DSO.Open filename, True  'True = read only
    Debug.Print DSO.SummaryProperties.Title
    DSO.Close
    
End Sub

 

[smiths87]

Some are MO Office Docs, so that gives me a place to start. Thanks.

 

[smiths87]

So now I have the DSO file and referenced it in the VB Project, but I keep getting "File Not Found" errors for files I know to exist. I think I'm missing something obvious, but I can't figure it out. Anyone else run across this?

 

[smiths87]

Never mind. Just got this working. (didn't realize I had typed in the wrong file extension, hence file really wasn't found.)