Someone was asking about a general purpose mkdir a while back.  Here is
the code I've always used.
 
call makedir("e:\temp\j1\j1\j3")
 
sub makedir(byval ds$)
'ds$=dir string
if ds$="" then exit sub
'assuming ds$ is of the form of either
'\DIR1\DIR2
'or
'C:\DIR1\DIR2
if left$(ds$,1)="\" then st=2 else st=1
for i=st to len(ds$)
  if mid$(ds$,i,1)="\" then
    if dir$(left$(ds$,i-1),16) = "" then mkdir left$(ds$,i-1)
  end if
next i
mkdir ds$
end sub
--- QM v1.00
---------------