Imports System.IO
Imports System.Drawing.Printing
Imports System.Drawing.Imaging
 
Module Dateisystem_Ueberwachung
 
    Public Sub Dateisystem_ueberwachen(ByVal wert)
 
        Const PFAD As String = "C:\speicherkarte"
 
        ' --- Instanziierung
        Dim i As Integer
        Dim watcher As New FileSystemWatcher()
 
 
        ' --- zu überwachendes Verzeichnis
        watcher.Path = PFAD
        ' --- zu überwachende Dateitypen
        watcher.Filter = "*.*"
        ' --- Unterverzeichnisse einschließen
        watcher.IncludeSubdirectories = True
 
        ' --- zu überwachende Änderungen
        watcher.NotifyFilter = _
        NotifyFilters.Attributes Or _
        NotifyFilters.LastAccess Or _
        NotifyFilters.LastWrite Or _
        NotifyFilters.Security Or _
        NotifyFilters.Size Or _
        NotifyFilters.FileName Or _
        NotifyFilters.DirectoryName
 
        ' --- Registrierung der 
        ' --- Ereignisbehandlungsroutinen
        AddHandler watcher.Changed, _
        AddressOf DS_aenderung
        AddHandler watcher.Created, AddressOf DS_neu
        AddHandler watcher.Deleted, _
        AddressOf DS_loeschen
        AddHandler watcher.Renamed, AddressOf DS_name
        ' --- Starten der Überwachung
        watcher.EnableRaisingEvents = wert
 
    End Sub
 
    ' ### Ereignisbehandlungsroutine für
    ' ### Änderungsereignisse
    Public Sub DS_aenderung( _
    ByVal source As Object, _
    ByVal e As FileSystemEventArgs)
 
    End Sub
 
    ' ### Ereignisbehandlungsroutine für 
    ' ### Erstellungsereignisse
    Public Sub DS_neu(ByVal source As Object, _
    ByVal e As FileSystemEventArgs)
 
        Dim pfad As String
        Dim Picturebox1 As New PictureBox
        File.Copy(e.FullPath, "C:\bilder\" & e.Name)
        pfad = "C:\bilder\" & e.Name
        Dim Bild As Bitmap = Image.FromFile(pfad)
        Form1.PictureBox1.Image = Image.FromFile(pfad)
        Dim Rahmen As Image = Image.FromFile("C:\bilder\rahmen.png")
        Dim g = Graphics.FromImage(Bild)
        Dim r = New Rectangle(0, 0, Bild.Width, Bild.Height)
 
        'g.DrawImage(My.Resources.Rahmen, r)
 
 
        'Dim doc As New PrintDocument()
        'doc.DocumentName = "C:\bilder\" & e.Name
        'Dim dialog As New PrintDialog
        'dialog.Document = doc
        'doc.Print()
 
    End Sub
 
 
End Module
 
 
 
 
 
 
Public Class Form1
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        SplashScreen1.Show()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
 
        Dateisystem_ueberwachen(True)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
 
        Dateisystem_ueberwachen(False)
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
 
    End Sub
End Class