I am unable to open a database using session.GetDatabase( strServer, strPath ) or New NotesDatabase( strServer, strPath) but I can open it from the notesDbDirectory
Does anyone know what would cause this behavior
This code returns the message at the bottom of the screen “Could not open the database” which means that it opened the database using notesDbDirectory but not get database
Set Directory = New Notesdbdirectory(“NotesSrv01”)
Set dbTarget=directory.getfirstdatabase(DATABASE)
’ Get the next database
While Not (dbTarget Is Nothing)
Call dbTarget.Open( “”,“”)
If dbTarget.FilePath = "FS\FSS.nsf" Then
strServer = dbTarget.Server
strPath = dbTarget.FilePath
Set dbSecond = session.GetDatabase( strServer, strPath )
If dbSecond.IsOpen Then
Messagebox "The database opened", 0, "OPEN"
Else
Call dbSecond.Open( "", "" )
If dbSecond.IsOpen Then
Messagebox "The database opened 2nd", 0, "OPEN"
Else
Print "Could not open the database"
Exit Sub
End If
End If
End If
PostError:
TotalCount = TotalCount + 1
Set dbTarget = directory.getnextdatabase
Wend