It works Ok for me as follows, I don't trust defaults:
ThisForm.Dzocx11.RecurseFlag = .F.
ThisForm.Dzocx11.NoDirectoryNamesFlag = .T.
ThisForm.Dzocx11.NoDirectoryEntriesFlag = .T.
_VFP.AutoYield = .F.
ThisForm.Dzocx11.ActionDZ = 4
_VFP.AutoYield = .T.
To move a mountain start with the smallest stone