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

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" wrote in message
...
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