Change the file | Summary | Title

[Michael Reynolds]

I can read file attributes just fine (author, title, etc,)

But there's no way to update them. I know windows application can do it,
but can a web application update these file attributes?

Here's the code I'm using:

Dim oSummProps As DSOFile.Summary Properties

Dim oCustProp As DSOFile.CustomP roperty

Dim sFile, sTmp As String

Dim m_oDocument As DSOFile.OleDocu mentPropertiesC lass

m_oDocument = New DSOFile.OleDocu mentPropertiesC lass

' Note: fileName is just a local file...in this case, c:\test.txt.

m_oDocument.Ope n(fileName, False, _

DSOFile.dsoFile OpenOptions.dso OptionOpenReadO nlyIfNoWriteAcc ess)

If Not m_oDocument.IsR eadOnly Then

oSummProps = m_oDocument.Sum maryProperties

oSummProps.Titl e = myNewTitle

m_oDocument.Sav e()

End If

m_oDocument.Clo se()

m_oDocument = Nothing

[Scott Allen]

Hi Michael:

You should be able to set the properties. Is there an exception or
error message? You might be facing a permissions issue.

--
Scott
http://www.OdeToCode.com/blogs/scott/

On Thu, 13 Oct 2005 10:22:02 -0700, "Michael Reynolds"
<Mi************ *@discussions.m icrosoft.com> wrote:

I can read file attributes just fine (author, title, etc,)

But there's no way to update them. I know windows application can do it,
but can a web application update these file attributes?

Here's the code I'm using:

Dim oSummProps As DSOFile.Summary Properties

Dim oCustProp As DSOFile.CustomP roperty

Dim sFile, sTmp As String

Dim m_oDocument As DSOFile.OleDocu mentPropertiesC lass

m_oDocument = New DSOFile.OleDocu mentPropertiesC lass

' Note: fileName is just a local file...in this case, c:\test.txt.

m_oDocument.Op en(fileName, False, _

DSOFile.dsoFile OpenOptions.dso OptionOpenReadO nlyIfNoWriteAcc ess)

If Not m_oDocument.IsR eadOnly Then

oSummProps = m_oDocument.Sum maryProperties

oSummProps.Titl e = myNewTitle

m_oDocument.Sav e()

End If

m_oDocument.Cl ose()

m_oDocument = Nothing