MkDir Bug Workaround

%REM ========================================
Title   : CreatePath
By      : Peter Newman
Date    : 14/02/2001
Purpose : The LotusScript 
function "MkDir" is only able to
          make a folder if its immediate parent folder exists.
          For example, an error is generated if you try to
          make the folder C:DataSurveys if C:Data does not
          exist.  This subroutine builds the path folder by
          folder by calling MkDir recursively.
Param   : sPath as String -
               a fully qualified windows path :
               e.g. C:DataCollectionCycleLBU
%ENDREM ========================================

Sub CreatePath (sPath As String)
     Dim sTempPath As String
     Dim iPos As Integer

     On Error Goto Recurse
     Mkdir sPath
     Exit Sub

Recurse:
     iPos = 0
     Do
          iPos = Instr(iPos+1, sPath, "")
          If iPos > 0 Then sTempPath = Left(sPath, iPos-1)
     Loop Until iPos = 0
     CreatePath (sTempPath)
     Resume 0
End Sub