MS Word document built-in Properties

[Gintaras]

For single file
Macro get file extended properties2

Code:

Copy      Help

out
str folder="Q:\MP3"
str filename="05 - DEUTER - Sound Of Invisible Waters.mp3"

Shell32.Shell x._create
Shell32.Folder f=x.NameSpace(folder)

;get column names
ARRAY(str) columns
int i
for(i 0 1000000) _s=f.GetDetailsOf(0 i); if(_s.len) columns[]=_s; else break
;for(i 0 columns.len) out columns[i]

Shell32.FolderItem k=f.ParseName(filename)
str name=k.Name
out F"<><Z 0x80E080>{name}</Z>"
for i 0 columns.len
,_s=f.GetDetailsOf(k i)
,if(!_s.len) continue
,out F"{columns[i]}={_s}"