Imports System.IO 'System.IO importieren
Dim bookmarknsf As Boolean
Public Class Form1
Inherits System.Windows.Forms.Form
Dim user As String = Environment.UserName

If Not Directory.Exists("c:\Notesbackup" & "\" & user) Then    
Directory.CreateDirectory("c:\Notesbackup" & "\" & user)    
Else
Directory.Delete("C:\Notesbackup", True) 
End If
bookmarknsf = File.Exists("C:\Dokumente und Einstellungen\" & user & "\Lokale" & _
  "Einstellungen\Anwendungsdaten\Lotus\Notes\Data\bookmark.nsf")
If bookmarknsf = True Then
File.Copy("C:\Dokumente und Einstellungen\" & user & "\Lokale" & _
  "Einstellungen\Anwendungsdaten\Lotus\Notes\Data\bookmark.nsf", _
  "C:\Notesbackup\"  & user & "\bookmark.nsf", True)
Else
End If

Viele Gr??e
Kai
----------------
Wenn Du Dich klein, nutzlos, beleidigt und depressiv f?hlst, denke
immer daran: Du warst einmal das schnellste und erfolgreichste Spermium Deiner Gruppe!