Same file selected, compare examining properties with
DSOFile.OleDocumentProperties then Built In Properties
====== DSO ==============
Title :
Subject :
Author : Stan Littlefield
Keywords :
Comments :
Template :
LastSavedBy : Stan Littlefield
RevisionNumber :
TotalEditTime : 0
DateLastPrinted :
DateCreated : 5/4/2024 1:06:18 PM
DateLastSaved : 5/4/2024 1:16:57 PM
PageCount : 0
WordCount : 0
CharacterCount : 0
Thumbnail :
ApplicationName : Microsoft Excel
DocumentSecurity : 0
Category :
PresentationFormat :
ByteCount : 0
LineCount : 0
ParagraphCount : 0
SlideCount : 0
NoteCount : 0
HiddenSlideCount : 0
MultimediaClipCount : 0
Manager :
Company :
CharacterCountWithSpaces : 0
SharedDocument : False
Version : 16.300
DigitalSignature :
==== Built In Properties ===========
Name Value
Keywords
Number of slides Value Not Found
Template
Creation date 5/4/2024 2:06:18 PM
Number of notes Value Not Found
Author Stan Littlefield
Company
Content type
Number of multimedia clips Value Not Found
Document version
Last author Stan Littlefield
Format
Last save time 5/4/2024 2:16:57 PM
Title
Subject
Number of hidden Slides Value Not Found
Category
Comments
Number of lines Value Not Found
Number of characters Value Not Found
Application name Microsoft Excel
Manager
Number of characters (with ... Value Not Found
Content status
Language
Number of words Value Not Found
Revision number
Number of paragraphs Value Not Found
Last print date Value Not Found
Total editing time Value Not Found
Hyperlink base
Security 0
Number of bytes Value Not Found
Number of pages Value Not Found
;Winbatch 2010C - Enumerate Supported File Properties by Windows Shell
; as Winbatch Map
;
;Original: Stan Littlefield, November 26 2010
;Updated: Stan Littlefipeld, November 12, 2024
;///////////////////////////////////////////////////////////////////////////////////////
file = "c:\temp\props.txt"
if FileExist(file) Then FileDelete(file)
propmask = ''
oShell = CreateObject("Shell.Application")
Folder = "C:\Windows"
oFolder = oShell.Namespace(Folder)
Null=ObjectType("NULL","")
For i = 0 To 400
Prop = oFolder.GetDetailsOf(Null, i) ;pass Null to enumerate
If Prop==Null Then Continue ;skip if not found or reserved
propmask=propmask:i:",":prop:@lf
Next
oFolder=0
oShell=0
propmask = 'propmask = $"':propmask:'$"'
props= propmask:@lf:"props = MapCreate(propmask,'',@lf)"
FilePut(file,props)
if FileExist(file) Then run("notepad.exe",file)
Exit