How to tell when a powerpoint presentation was last shown?

[mpruett]

Is there any way to tell when a Powerpoint presentation was last shown as opposed to edited? I can't find anything VBA-wise, but I'm not that good at it either.

Anyone have any ideas?

Thanks,

Mark

 

[ETID]

the vba way....

Sub Last_file_access_date()

Dim m_FSObject
Dim m_Folder
Dim m_File
Dim m_Files
Dim iCnt

Set m_FSObject = CreateObject("Scripting.FileSystemObject")

Set m_Folder = m_FSObject.GetFolder("c:\my_ppt_file.ppt")
Set m_Files = m_Folder.Files

For Each m_File In m_Files
MsgBox (CStr(m_File.Name) + " - last accessed: " + CStr(m_File.DateLastAccessed))
Next

End Sub

 

[mpruett]

Ok... but it appears that viewing the presentation in a slide show doesn't update the last accessed date. Is there a "behind-the-scenes" property that records when it was actually shown?

BTW, the code worked beautifully though- thanks!