FUNCTION hs_createtable( nUserStru, cCommand ) 
 ... 
    IF Lower(cName) = "/mem:" 
       cDataPath := "" 
       cName := Substr(cName, 2) 
    ELSE 
       cDataPath := leto_GetAppOptions( 1 ) 
    ENDIF 
    cFileName := cDataPath + cName 
  
    IF ! empty(cDataPath)        // new 
       _CreateDir( cFileName )   // new 
    ENDIF                        // new 
  
    BEGIN SEQUENCE WITH { |e|break( e ) } 
 ... 
 STATIC FUNCTION _CreateDir( cDBF ) 
 LOCAL i, cCt, aCt := {} 
  
  i   := RAt('\', cDBF) 
  cCt := Left( cDBF, i-1) 
  
  DO WHILE ! hb_DirExists( cCt ) 
     i := RAt('\', cCt) 
     IF i == 0 ; EXIT 
     ENDIF 
     AAdd( aCt , subs(cCt, i+1) ) 
     cCt := Left( cCt, i-1) 
  ENDDO 
  
  i := Len( aCt ) 
  DO WHILE i > 0 
     cCt += ('\' + aCt[i--]) 
     MakeDir( cCt ) 
  ENDDO 
  
 RETURN .T.