@DbExists als Script ?

    Hallo zusammen,


    ein Script erstellt über:


    Call maildb.Open( "Server", "Datei" )
    Set replica = maildb.CreateReplica( "", "Datei" )


    eine Replik, bricht aber ab, wenn diese schon vorhanden ist.
    Mit @DbExists kann man ja leicht prüfen, ob die Datei schon vorhanden ist, geht das auch in Script.


    Danke und gruß
    rubbeldidup

    Hallo rubbeldidup!


    Versuch es doch einfach mit der Evaluate function, wenn es sich nicht gerade um einen Agenten handelt!
    Damit kannst du Befehle der MAkrosprache in LS verwenden.


    Gruß


    devileye1

    Irgendwie will es nicht so richtig..


    Dim datei As Variant
    Dim datei1 As Variant
    Dim datenbank As Variant
    Dim vorh As Variant
    datei ="D:\\Daten\\Notes\\Data\\mail\\Name.nsf"
    datei1 =""
    datenbank = | @DbExists ( " | & datei1 & | ":" | & datei & |" ) |
    vorh = Evaluate(datenbank)
    Print vorh


    Da es auch auf 4er Clients laufen soll, habe ich es so machen müsse.


    Leider liefert mir "vorh" keinen Wert zurück.


    gruß
    rubbeldidup

    Nur der Vollständigkeit halber (Du hast ja schon eine Lösung), wie man via Script prüft, ob eine Datenbank existiert:



    Call maildb.Open( "Server", "Datei" )


    Dim dbProof As New NotesDatabase( "", "Datei" )
    if dbProof.IsOpen then
    [color=009999]REM "Datenbank existiert"[/color]


    else
    [color=009999]REM "datenbank existiert nicht"[/color]
    Set replica = maildb.CreateReplica( "", "Datei" )
    end if



    Viele Grüße


    Blue

    Also, ich muss gestehen, ich habe Evaluate(@DBExists()) auch nicht 'zum fliegen' bekommen. In Formelsprache funktionierte @DBExists(DB) wunderbar, mit Evaluate in Script bekomme ich nichts zurück. Vielleicht ist es eine der Funktionen, die nicht mit Evaluate in Script funktionieren?


    So frage ich immer ab, ob eine Datenbank existiert:
    [color=0099CC]
    Dim datei As String
    Dim datei1 As String
    Dim datenbank As String
    Dim vorh As Variant
    datei ="D:\\Lotus\Notes\Data\busytime.nsf"
    datei1 =""

    Dim db As New NotesDatabase(datei1,datei)

    If db.isopen Then
    Print "Datenbank existiert"
    Else
    Print "Datenbank existiert nicht"
    End If
    [/color]



    Viele Grüße


    Blue