How do you get the directory the current database is in?

Public Function GetDatabasePath( db As Notesdatabase ) As String
  Dim position As Integer
  position = Instr( db.FilePath, db.FileName )
  GetDatabasePath = Left( db.FilePath , position - 1 )
End Function

Applies to Notes Versions: 4 4.5 4.6 5
Last Modified: January 21, 1999

---

Home Notes R3 Notes R4 Notes/Domino 4.5 Notes/Domino 4.6 Notes/Domino R5