G
Guest
I'm having trouble with updating general fields (Title, Autor Suject, etc.)
in the summary of documents located on our Intranet. I've downloaded the
FilePropDemoVB7 example (http://support.microsoft.com/?kbid=224351) and even
tried modifing it to make the changes to my local files and I get the same
error on both the original and the ASP.net version. Here is an example of my
code that's tring to make a change:
Private Sub btnAccept_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnAccept.Click
Dim oSummProps As DSOFile.SummaryProperties
Dim fi As New FileInfo(Session("sFile"))
m_oDocument = New DSOFile.OleDocumentPropertiesClass
Try
m_oDocument.Open(fi.FullName, False,
DSOFile.dsoFileOpenOptions.dsoOptionOpenReadOnlyIfNoWriteAccess)
oSummProps = m_oDocument.SummaryProperties
oSummProps.Title = CType(mpHoriz.FindControl("txtTitle"),
TextBox).Text
oSummProps.Author = CType(mpHoriz.FindControl("txtAuthor"),
TextBox).Text
oSummProps.Subject = CType(mpHoriz.FindControl("txtSubject"),
TextBox).Text
oSummProps.Company = CType(mpHoriz.FindControl("txtCompany"),
TextBox).Text
oSummProps.Comments = CType(mpHoriz.FindControl("txtComments"),
TextBox).Text
m_oDocument.Save()
Catch ex As SystemException
Response.Write(ex.ToString)
Response.End()
Finally
m_oDocument.Close()
m_oDocument = Nothing
End Try
OpenDocumentProperties(fi)
End Sub
I've given Full Access rights to the folder where the changes are to be made
but that hasn't made a difference. But what's strange is that when I use the
modified demo application it should work for my local files but it also comes
up with the "Access Denied" error.
Is there something I'm missing?
in the summary of documents located on our Intranet. I've downloaded the
FilePropDemoVB7 example (http://support.microsoft.com/?kbid=224351) and even
tried modifing it to make the changes to my local files and I get the same
error on both the original and the ASP.net version. Here is an example of my
code that's tring to make a change:
Private Sub btnAccept_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnAccept.Click
Dim oSummProps As DSOFile.SummaryProperties
Dim fi As New FileInfo(Session("sFile"))
m_oDocument = New DSOFile.OleDocumentPropertiesClass
Try
m_oDocument.Open(fi.FullName, False,
DSOFile.dsoFileOpenOptions.dsoOptionOpenReadOnlyIfNoWriteAccess)
oSummProps = m_oDocument.SummaryProperties
oSummProps.Title = CType(mpHoriz.FindControl("txtTitle"),
TextBox).Text
oSummProps.Author = CType(mpHoriz.FindControl("txtAuthor"),
TextBox).Text
oSummProps.Subject = CType(mpHoriz.FindControl("txtSubject"),
TextBox).Text
oSummProps.Company = CType(mpHoriz.FindControl("txtCompany"),
TextBox).Text
oSummProps.Comments = CType(mpHoriz.FindControl("txtComments"),
TextBox).Text
m_oDocument.Save()
Catch ex As SystemException
Response.Write(ex.ToString)
Response.End()
Finally
m_oDocument.Close()
m_oDocument = Nothing
End Try
OpenDocumentProperties(fi)
End Sub
I've given Full Access rights to the folder where the changes are to be made
but that hasn't made a difference. But what's strange is that when I use the
modified demo application it should work for my local files but it also comes
up with the "Access Denied" error.
Is there something I'm missing?