Why are you using WORD?
How are the folders structured? If you have, say,
c:\my docs\jan\budget\Qtr4
where nothing exists (i.e. my docs, mydocs\jan etc), you can use this API:
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal
lpPath As String) As Long
MakeSureDirectoryPathExists "c:\my docs\jan\budget\Qtr4\" ' Note the
trailing \
BUT, if have, say
c:\my docs\jan , c:\mydocs\feb, etc.,
I cannot see how you can code without a loop.
PS: MakeSureDirectoryPathExists verifies the presence of a folder and if it
not found, it creates it, including its tree i.e. the upper level folders
need not be verified separately.