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.
Based on this French language tip.

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 if it does not it creates it. 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