By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
%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