.
.
.
Dim aFileWatcherInstance As ArrayList = New ArrayList
Dim aFileCollector As New List(Of String)
 
 
    'hier wird der Filewatcher aufgerufen.. für alle Verzeichnisse die ein 
    ' definiertes Präfix haben
    Public Sub fnc_StartWatching(ByVal copyEvent As Boolean)
        Dim sSrcPath As String = S_Config.sQuelle
        If copyEvent = True Then
            EventLog.WriteEntry("AnalysenSource", "Verzeichnis überwachung" & _
              "aktiv auf " & sSrcPath)
            prcLog("Verzeichnis überwachung aktiv auf " & sSrcPath)
            Dim dir = New DirectoryInfo(sSrcPath)
            For Each d As DirectoryInfo In dir.GetDirectories(S_Config.sPrefix _
              + "*")
                prcLog(".. überwachung aktiv auf " & S_Config.sQuelle + "\" + _
                d.ToString)
                Dim oFileWatcher As FileSystemWatcher = New FileSystemWatcher _
                With {
                        .Path = S_Config.sQuelle + "\" + d.ToString,
                        .Filter = "*.*"
                    }
                If blnMonitorCreated Then
                    AddHandler oFileWatcher.Created, AddressOf _
                      FileSystemWatcherCreated
                End If
                oFileWatcher.EnableRaisingEvents = True
                'Filewatcher Instanz in ein Array schreiben
                aFileWatcherInstance.Add(oFileWatcher)
            Next
            copyEvent = False
        Else
            For Each fsw In aFileWatcherInstance
                fsw.EnableRaisingEvents = False
            Next
            For i = 1 To aFileWatcherInstance.Count
                aFileWatcherInstance.Remove(1)
            Next
            EventLog.WriteEntry("AnalysenSource", "Verzeichnis überwachung" & _
              "beendet")
            copyEvent = False
        End If
    End Sub
 
    'Bei neu erstellten Dateien, Datei incl Pfad in Liste schreiben
    Private Sub FileSystemWatcherCreated(ByVal sender As Object, ByVal e As _
      FileSystemEventArgs)
        sFullFileName = e.FullPath
        prcLog("Datei '" & sFullFileName & "' wurde neu erstellt.")
        'Neue Dateien kopieren (alt!)
        'fnc_CopyFile(sFullFileName)
        'Neue Dateien in Liste einfügen
        aFileCollector.Add(sFullFileName)
    End Sub
 
    'hier werden die Dateien aus der Quelle in ein Sammelverzeichnis kopiert
    Private Sub fnc_CopyFile(ByVal sFile As String)
        Dim sfileName As String = Path.GetFileNameWithoutExtension(sFile)
        Dim ext As String = Path.GetExtension(sFile)
 
        'Prüfen ob Dateiname im Ziel schon existiert, sonst umbennenen
        If File.Exists(S_Config.sZiel & "\" & sfileName & ext) Then
            Dim num As Integer
            Do
                num += 1
            Loop While File.Exists(S_Config.sZiel & "\" & sfileName & "(" & _
              num.ToString & ")" & ext)
            sfileName &= "(" & num.ToString & ")"
            prcLog("Datei '" & S_Config.sZiel & "\" & sFile & "' Umbenannt in " _
              & sfileName)
        End If
        'Dateien kopieren
        File.Copy(sFile, S_Config.sZiel & "\" & sfileName & ext, False)
        prcLog("Datei '" & sFile & "' nach " & S_Config.sZiel & "\" & sfileName _
          & " kopiert")
        If S_Config.sDeleteSource Then
            File.Delete(sFile)
            prcLog("Datei '" & sFile & "' gelöscht.")
        End If
    End Sub

EALA FREYA FRESENA