Function GetCurrentDbPath
	Dim ss As New notessession
	Dim db As notesdatabase
	Set db=ss.currentdatabase	
	Dim i As Integer
	Dim path as string
	For i=Len (db.filepath) To 1 Step -1
		If Mid(db.filepath,i,1)="\" Then
			If i > 1 Then
				path =Left (db.filepath, i-1) & "\"
				Exit For
			End If
		End If
	Next
	GetCurrentDbPath = path
End Function