+ Reply to Thread
Results 1 to 2 of 2

Messy Users

  1. #1
    Dkso
    Guest

    Messy Users

    I'm trying to find a way to tidy up after our users, 1 idea is to check who
    and when spreadsheets and Word document were created. I've a VB program to
    check when, but it does not tell me who! Excel and Word keep this info in
    the files so is there any such VBA program to check a directory on a
    Network, list all the files with the Who and when detail??

    Thanks
    Dean



  2. #2
    Bob Phillips
    Guest

    Re: Messy Users

    Yes you can, but you have to install DSO. You can get it at
    http://support.microsoft.com/?id=224351.

    Sub DSO()
    Dim FileName As String
    Dim fOpenReadOnly As Boolean
    Dim DSO As DSOFile.OleDocumentProperties
    Dim oSummProps As DSOFile.SummaryProperties
    Dim oCustProp As DSOFile.CustomProperty

    Set DSO = New DSOFile.OleDocumentProperties
    FileName = "C:\Documents and Settings\Bob\My Documents\My
    Spreadsheets\Oz CF with Text.xls"
    DSO.Open FileName, fOpenReadOnly, dsoOptionOpenReadOnlyIfNoWriteAccess

    'Get the SummaryProperties (these are built-in set)...
    Set oSummProps = DSO.SummaryProperties
    Debug.Print "Application: " & oSummProps.ApplicationName
    Debug.Print "Application: " & oSummProps.Author
    Debug.Print "Version: " & oSummProps.Version
    Debug.Print "Subject: " & oSummProps.Subject
    Debug.Print "Category: " & oSummProps.Category
    Debug.Print "Company: " & oSummProps.Company
    Debug.Print "Keywords: " & oSummProps.Keywords
    Debug.Print "Manager: " & oSummProps.Manager
    Debug.Print "LastSaved by: " & oSummProps.LastSavedBy
    Debug.Print "WordCount: " & oSummProps.WordCount
    Debug.Print "PageCount: " & oSummProps.PageCount
    Debug.Print "ParagraphCount: " & oSummProps.ParagraphCount
    Debug.Print "LineCount: " & oSummProps.LineCount
    Debug.Print "CharacterCount: " & oSummProps.CharacterCount
    Debug.Print "CharacterCount (w/spaces): " &
    oSummProps.CharacterCountWithSpaces
    Debug.Print "ByteCount: " & oSummProps.ByteCount
    Debug.Print "PresFormat: " & oSummProps.PresentationFormat
    Debug.Print "SlideCount: " & oSummProps.SlideCount
    Debug.Print "NoteCount: " & oSummProps.NoteCount
    Debug.Print "HiddenSlides: " & oSummProps.HiddenSlideCount
    Debug.Print "MultimediaClips: " & oSummProps.MultimediaClipCount
    Debug.Print "DateCreated: " & oSummProps.DateCreated
    Debug.Print "DateLastPrinted: " & oSummProps.DateLastPrinted
    Debug.Print "DateLastSaved: " & oSummProps.DateLastSaved
    Debug.Print "TotalEditingTime (mins): " & oSummProps.TotalEditTime
    Debug.Print "Template: " & oSummProps.Template
    Debug.Print "Revision: " & oSummProps.RevisionNumber
    Debug.Print "IsShared: " & oSummProps.SharedDocument

    'Add a few other items that pertain to OLE files only...
    If DSO.IsOleFile Then
    Debug.Print "CLSID: " & DSO.CLSID
    Debug.Print "ProgID: " & DSO.progID
    Debug.Print "OleFormat: " & DSO.OleDocumentFormat
    Debug.Print "OleType: " & DSO.OleDocumentType
    End If

    'Now the custom properties
    For Each oCustProp In DSO.CustomProperties
    Debug.Print oCustProp.Name & ": " & CStr(oCustProp.Value)
    Next oCustProp

    Set oCustProp = Nothing
    Set oSummProps = Nothing
    Set DSO = Nothing

    End Sub


    --
    HTH

    Bob Phillips

    (remove xxx from email address if mailing direct)

    "Dkso" <[email protected]> wrote in message
    news:[email protected]...
    > I'm trying to find a way to tidy up after our users, 1 idea is to check

    who
    > and when spreadsheets and Word document were created. I've a VB program

    to
    > check when, but it does not tell me who! Excel and Word keep this info in
    > the files so is there any such VBA program to check a directory on a
    > Network, list all the files with the Who and when detail??
    >
    > Thanks
    > Dean
    >
    >




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1