per Script Schablonen erstellen

[DAU-in]

Er meckert immer das die DB noch nicht geöffnet sei, aber wie öffne ich sie denn im Backentd? Das widerspricht sich doch schon wenn ich die Frage stelle.

if not notesdatabase.isOpen then
call notesdatabase.open
end if

Opens a database. A database must be open in order to access all its properties and methods. For details on accessing the properties and methods of a database, see the Usage section in NotesDatabase.

[bikerboy]

Hmmm keine Verbesserung,

Mich dünkt dass ich das schon ausprobiert habe.

[bikerboy]

Code

serverPath = Strtoken(varDBList(i),"~",1)
		filePath = Strtoken(varDBList(i),"~",2)
		
		Set dbTarget = session.GetDatabase(serverPath,filePath)
		
		If Not dbTarget.IsOpen Then
			Call dbTarget.Open(serverPath,filePath)			
		End If
		
		newFileName = tmpPrefix + "-"  + Replace(dbtarget.FileName,".nsf",".ntf")
		targetServer = currentDoc.GetItemValue("targetServer")(0)
		targetFilePath = currentDoc.GetItemValue("targetFilePath")(0)
		targetFilename = targetFilePath + newFileName
		
		Set dbTemplate = dbTarget.CreateCopy(targetServer,targetFilename)

So warum kann ich dbTarget nun nicht kopieren.

[DAU-in]

die Rechte zum Anlegen von DBs auf dem Server hast du aber?
Ich dürfte das hier nämlich nicht als Entwickler.

[bikerboy]

die Rechte habe ich. Die DBs liegen dann bei mir im lokal in nem Verzeichnis , dass im Feld targetFilePath hinterlegt ist.

[bikerboy]

so das problem sass mal wieder vor dem Bildschirm.

Wenn ich eine einzelne DB ausgewählt hatte hat er sie geöffnet, bei meheren nicht, also habe ich mal geguckt was in meinem Quellfeld steht wenn ich mehere DB drin habe und siehe da der DB.filePath war mit " aufgelistet, das habe ich mal durch nen ReplaceSubString rausgefiltert und schwupp konnte er sie öffnen und kopieren, jetzt muss ich nur noch die anderen Probleme hinbekommen und dann ist es fertig

[bikerboy]

So wir nähern uns einem Ende.......

Was muss ich beachten wenn ich eine Schablone erstelle die Notes auch als solche erkennt habe,

die Felder $TemplateBuildName, $TemplateBuild und $TemplateBuildDate sind gesetzt, aber im Dialog wird sie nicht als "vollwertige" Schablone gelistet.

[bikerboy]

So habe mal wieder was gefunden,

Code

			Dim stream As NotesStream
			Set stream = session.CreateStream
			stream.WriteText {<database
      xmlns='http://www.lotus.com/dxl'
      version='6'
      templatename='} + Replace(newFileName,".ntf","")+ {'
      fromtemplate=''>
      </database>}
			
			
			Dim mp As NotesDXLImporter
			Set mp = session.CreateDXLImporter(stream, dbTemplate)
			With mp
				.ReplaceDbProperties = True
				.Process
			End With

Das läuft auch soweit, das einzige was ich in der Hilfe nun nicht gefunden habe sind die namen von den anderen Felder die  äquivalent zu

$TemplateBuild
$TemplateBuildDate sind

Deswegen meine Frage an Glombi , ich hab ihn in nem Zusammenhang meiner Recherche gefunden.

@Glombi du verweist auf nen Hilfeeintrag den ich zwar finde aber nicht die elemente dich ich benötige, und leider nicht mal das Feld templatename

Edit : Sorry man muss auch die augen auf machen, aber die anderen Felder finde ich dennoch nicht.

[bikerboy]

So was lange wert wird endlich gut.... hab es, jetzt werde ich den Code noch abrunden und dann am Ende hier posten.

Ich bedanke mich bei allen die geholfen haben, auch wenn es am Ende eher ein Blog war, aber ohne euch wäre das nie Fertig geworden.