Exit While Loop

There is no Exit While statement in LotusScript.
The solution is simple. Use the Do While ... Loop and then Exit Do if you want to break the loop.

-->

Check if Form Exists

Function formExists (db As NotesDatabase, formType As String)
 Dim formTypeYes As Boolean
 Forall  frm In db.Forms
  If Isarray (frm.Aliases)  Then
   If  frm.Aliases (0) = formType Then
    formTypeYes = True
   End If
  End If
 End Forall
 formExists = formTypeYes
End Function

Create Subfolder

This function first checks to see if a subfolder exists, and creates one if it does not exist. The function returns the path. It is dependent on the DirExists function.

Function CheckMakeFolder ( root As String , leaf As String) As String
Dim strPath As String
strPath = root & "\" & leaf
If Not DirExists (strPath) Then
Mkdir strPath
End If
CheckMakeFolder = strPath
End Function

New Line Symbol

The new line symbol or carriage return and linefeed symbols can be inserted using the following combination:

Chr(13) & Chr(10)


Write String to File


Sub WriteLog (strLog As String, logFileName As String )
Dim fileName As String
Dim fileNum As Integer
fileNum% = Freefile()
fileName$ = logFileName
Open FileName$ For Append As fileNum%
Write #fileNum% , strLog
Close fileNum%
End Sub

Function EndsWith


Function EndsWith (Haystack As String, Needle As String ) As Boolean

Dim lenStr As Integer
lenStr = Len(Needle)
If Mid(Haystack , Len(Haystack )-(lenStr-1)) = Needle Then
EndsWith = True
Else
EndsWith = False
End If
End Function


Usage:
Msgbox EndsWith("Stranger", "er")
Result: true

Remove File Extension

Function RemoveExtension (strName As String)
   RemoveExtension = Left (strName, Instr(strName, ".")-1)
End Function