By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
%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