domino1352
IS-IT--Management
Old story lost my workspace icons (corrupted) and wanted a quick method of adding all Icans back (easier to sorth them back to the correct places..
the code below adds the ocons OK bt only dbs with extensions of NSF does anyone know of a method to bulk add templates...
Thanks in advance
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim dbdir As New NotesDbDirectory("")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
Dim count As Integer
On Error Resume Next
count = 0
tpltcount = 0
dbcount = 0
othercount =0
While Not(db Is Nothing)
count = count+1
Print "Number => " & Cstr(count) & " " &db.filepath
Call ws.AddDatabase("" , db.FilePath)
Set db = dbdir.GetNextDatabase
Wend
Print "Final Count " & Cstr(Count)
End Sub
the code below adds the ocons OK bt only dbs with extensions of NSF does anyone know of a method to bulk add templates...
Thanks in advance
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim dbdir As New NotesDbDirectory("")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
Dim count As Integer
On Error Resume Next
count = 0
tpltcount = 0
dbcount = 0
othercount =0
While Not(db Is Nothing)
count = count+1
Print "Number => " & Cstr(count) & " " &db.filepath
Call ws.AddDatabase("" , db.FilePath)
Set db = dbdir.GetNextDatabase
Wend
Print "Final Count " & Cstr(Count)
End Sub