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
Notes/Domino 6 Notes/Domino 6.5 Notes/Domino 7 Notes/Domino 8 Notes/Domino 8.5