DOCUMENT:Q278085  16-NOV-2000  [foxpro]
TITLE   :HOWTO: Retrieve Word Document Information from Visual FoxPro
PRODUCT :Microsoft FoxPro
PROD/VER::5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbAutomation kbvfp500 kbvfp500a kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet kbFSO

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows how to retrieve Microsoft Word 2000 document properties from
Visual FoxPro. These properties (such as the author, the date that the document
was last modified, and so on) are the same properties that you see when you
right-click a Word document in Windows Explorer, click Properties, and then
click either the Summary tab or the General tab.

MORE INFORMATION
================

This code specifically applies to Word 2000 documents. If you want to use the
code to retrieve the information from other Microsoft Office file types, you
need to access the object model for that application.

Although the FoxPro ADIR() function creates an array that holds various operating
system attributes of a file, it does not contain any information stored
specifically by Word. To obtain this information, you must use the
FileSystemObject.

1. Create or copy several Word 2000 documents into a folder.

2. In the same folder, create a program and paste the following code:

   LOCAL cDir
   cDir = ""

   fso = CREATEOBJECT('Scripting.FileSystemObject')
   cDir = GETDIR()
   IF !EMPTY(cDir)
     CLEAR
     oFolder = fso.GetFolder(cDir)
     oFiles = oFolder.FILES
     IF oFolder.Files.Count > 0
     objWord = CreateObject("Word.Application")
     FOR EACH oFile IN oFiles
       * Check for files not modified in last 100 days (measured in seconds).
       * You can use the Last Accessed date, but opening the file below in Word
       * to get the Author property updates the Last Accessed property.
       ** IF DATETIME() - oFile.DateLastModified > (100*24*60*60) AND ;

        IF DATETIME() - oFile.DateLastModified > (100) AND ;
         oFile.Type = "Microsoft Word Document" 
         objWord.Documents.Open(oFile.Path,.F.,.T.)
         ? 'Doc name: ' + oFile.Name +;
           '  Created: ' + DTOC(oFile.DateCreated) +;
           '  Last accessed: ' + DTOC(oFile.DateLastAccessed) +;
           '  Last modified: ' + DTOC(oFile.DateLastModified) +;
           '  Author: ' + objWord.Documents.Item(oFile.Name).BuiltInDocumentProperties("author").Value
         objWord.Documents.Item(oFile.Name).Close(.F.)
       ENDIF
     NEXT oFile
     objWord.Quit (.F.)
     ENDIF
   ENDIF

3. Run the code.

The following information appears on the Visual FoxPro desktop for each Word
document modified in the last 100 days:

 - The name of the document.

 - The author of the document.

 - The date that the document was created.

 - The date that the document was last accessed.

 - The date that the document was last modified.

Additional query words:

======================================================================
Keywords          : kbAutomation kbvfp500 kbvfp500a kbvfp600 kbGrpDSFox kbDSupport kbCodeSnippet kbFSO 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : :5.0,5.0a,6.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.