H="XML open all"
^!ClearVariable %FileList%
^!Set %Folder%=^?{(T=D)Full path=C:\Shared Documents\Dropbox\Public\Pluralist\Spiritual\}
^!Set %FullPath%=^$GetFileFirst(^%Folder%;*.*xml*)$

:Loop
^!IfTrue ^$IsEmpty(^%FullPath%)$ Close
^!Append %FileList%=^%FullPath%^%nl%
^!Open "^%FullPath%"
^!Set %FullPath%=^$GetFileNext$
^!GoTo Loop

:Close
^!CloseFileFind
^!Info [L]^%FileList%