By
Published: 18 Feb 2001
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.
%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
Dig Deeper on Domino Resources - Part 6