Habe wohl gerade einen Blackout. Folgendes Problem:
Ich kopiere in Script eine Datenbank in ein anderes Verzeichnis und möchte dabei den Datenbanktitel ändern.
wert=Inputbox(„Geben Bezeichnung ein ein !“)
abfrage=Messagebox(„Wollen Sie ein leeres Projekt ohne Stammdaten anlegen?“, MB_YesNo)
prodatei=(wert+".nsf")
If abfrage=6 Then
Filecopy „C:\blabla.nsf“, „C:\blablup“+ prodatei
Else
Filecopy „C:\blallal.nsf“, „C:\blaaa“+ prodatei
End If
Dim db As New NotesDatabase("",wert)
Call db.open("",wert)
db.Title = wert
Leider erhalte ich die Antwort " blabla.nsf is not open yet.
Habe wohl gerade einen Blackout. Folgendes Problem:
Ich kopiere in Script eine Datenbank in ein anderes
Verzeichnis und möchte dabei den Datenbanktitel ändern.
*aufhell*
also zum einen meinst du wohl statt Datenbanktitel den Dateinamen (der Titel ist bei NotesDatabase.Title )
zum anderen kopiert dein script die Datenbank nach c:… dein Notes Datenverzeichnis ist aber vermutlich sowas wie c:\lotus\notes … dein script sucht also beim öffnen lokal in diesem Verzeichnis - und kann die kopierte DB deshalb nicht finden.
Hallo Stefan,
mit dem Titel meine ich den Datenbanktitel ( nicht den Namen).
Aber Du hast mir insoweit geholfen, indem ich den Pfad eingegeben habe … und es geht. Logischerweise sucht Notes die Datenbank in seinem Dataverzeichnis. Das war mein Gedankenfehler.
Aber nun geht´s ja. Danke für den Ansatz
