Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

<- - Trying to Get the File Created Date - -> 1

Status
Not open for further replies.

nidifice

Programmer
Oct 9, 2003
47
US
I'm using the FSO and building a page based on the files in a particular folder.
The files are all MS Word documents. Using the FSO I can get the 'objFile.DateCreated'; but, this date doesn't hold true when it is uploaded. The Word documents have their own creation date and modified date that doesn't change when they are uploaded from somewhere else (you can view them by right clicking on the document and looking at its properties).
Is there a way to access these Word dates?
 
formatdatetime(objFile.DateLastModified,vbShortDate)
 
Um, don't think you fully read the problem. I'm looking to access the ---MS Word--- 'Date of Creation' & 'Date Last Saved.' NOT the generic DateCreated & DateLastModified.
 
>> (you can view them by right clicking on the document and
>> looking at its properties).

More specifically:

-Right Click
-Open Properties
-Goto Summary Tab and Scroll down (On win2000)
 
I figured this out.

Microsoft has a component (DSOFILE.DLL) that will let you access office summary tabs from VB, VBScript, ASP.

Just in case anyone else wanted to know.
 
Some sample code because it isn't the most redundant thing on the web.

<%
dim objDocProp, objProp

set objProp = server.CreateObject(&quot;DSOleFile.PropertyReader&quot;)

set objDocProp = objProp.GetDocumentProperties(objFile.Path)

response.write &quot;<br>Subject: &quot; & objDocProp.Subject
response.write &quot;<br>Category: &quot; & objDocProp.Category
response.write &quot;<br>Company: &quot; & objDocProp.Company
response.write &quot;<br>Manager: &quot; & objDocProp.Manager
response.write &quot;<br>CLSID: &quot; & objDocProp.CLSID
response.write &quot;<br>ProgID: &quot; & objDocProp.ProgId
response.write &quot;<br>Word Count: &quot; & objDocProp.WordCount
response.write &quot;<br>Page Count: &quot; & objDocProp.PageCount
response.write &quot;<br>Paragraph Count: &quot; & response.write objDocProp.ParagraphCount
response.write &quot;<br>Line Count: &quot; & objDocProp.LineCount
response.write &quot;<br>Character Count: &quot; & objDocProp.CharacterCount
response.write &quot;<br>Character Count (w/spaces): &quot; & objDocProp.CharacterCountWithSpaces
response.write &quot;<br>Byte Count: &quot; & objDocProp.ByteCount
response.write &quot;<br>Slide Count: &quot; & objDocProp.SlideCount
response.write &quot;<br>Note Count: &quot; & objDocProp.PresentationNotes
response.write &quot;<br>Hidden Slides: &quot; & objDocProp.HiddenSlides
response.write &quot;<br>MultimediaClips: &quot; & objDocProp.MultimediaClips
response.write &quot;<br>Last Edited by: &quot; & objDocProp.LastEditedBy
response.write &quot;<br>Date Created: &quot; & objDocProp.DateCreated
response.write &quot;<br>Date Last Printed: &quot; & objDocProp.DateLastPrinted
response.write &quot;<br>Date Last Saved: &quot; & objDocProp.DateLastSaved
response.write &quot;<br>Total Editing Time (mins): &quot; & objDocProp.TotalEditTime
response.write &quot;<br>Version: &quot; & objDocProp.Version
response.write &quot;<br>Revision Number: &quot; & objDocProp.RevisionNumber
response.write &quot;<br>Template Name: &quot; & objDocProp.Template
response.write &quot;<br>Presentation Format: &quot; & objDocProp.PresentationFormat

set objProp = nothing
%>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top