MkDir Bug Workaround

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
This was first published in February 2001

Dig deeper on Domino Resources - Part 6

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close