GetCurrentDbPath

Function returns the path of the existing database. The path value is minus the filename itself which allows you to append other filenames to open other databases in the same directory.
LotusScript


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

Posted by fbrefere001 on Wednesday February 13, 2002