MS Word document built-in Properties

[Gintaras]

Macro get file extended properties

Code:

Copy      Help

out
str folder="Q:\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]

;enumerate files in the folder and display all non-empty properties
Shell32.FolderItem k
foreach k f.Items
,if(k.IsFolder) continue
,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}"
,,