Hallo zusammen,
nach langer Suche möchte ich euch mal um Hilfe bitten.
ich möchte ein Verzeichnis mithilfe des FileSystemWatcher auf das Erstellen von Dateien überprüfen. Wenn eine Datei in das angegebene Verzeichnis geschrieben wird, möchte ich sie per Mail an bestimmte Empfänger versenden. Das Ganze funktioniert auch bei kleinen Dateien. Wenn ich jetzt aber eine große Datei in das Verzeichnis hineinkopiere wird zu Beginn des Kopiervorgangs das Event gestartet. Die Datei kann aber noch nicht weiter verarbeitet werden, da sie noch in das Verzeichnis geschrieben wird.
Kann mir jemand sagen, wie ich dieses Problem lösen kann? Ich bin für jede Hilfe dankbar!!!
Hier mein Code:
nach langer Suche möchte ich euch mal um Hilfe bitten.
ich möchte ein Verzeichnis mithilfe des FileSystemWatcher auf das Erstellen von Dateien überprüfen. Wenn eine Datei in das angegebene Verzeichnis geschrieben wird, möchte ich sie per Mail an bestimmte Empfänger versenden. Das Ganze funktioniert auch bei kleinen Dateien. Wenn ich jetzt aber eine große Datei in das Verzeichnis hineinkopiere wird zu Beginn des Kopiervorgangs das Event gestartet. Die Datei kann aber noch nicht weiter verarbeitet werden, da sie noch in das Verzeichnis geschrieben wird.
Kann mir jemand sagen, wie ich dieses Problem lösen kann? Ich bin für jede Hilfe dankbar!!!
Hier mein Code:
Code:
Sub test() Dim watcher As New FileSystemWatcher() watcher.Path = "c:\testpfad" watcher.Filter = "*.zip" AddHandler watcher.Created, AddressOf OnCreated watcher.EnableRaisingEvents = True End Sub Private Shared Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs) Dim message As Message = New Message message.From = New Mailbox("<<Absender-Adresse>>", "My Name") message.To.Add("("<<Empfänger-Adresse>>", "John Smith") message.Subject = "Test" message.Body = "This is a message with an attachment." message.ContentType = New ContentType("text", "plain", "utf-8") message.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable ‘ Zeile, bei der bei großen Dateien der Fehler geworfen wird… message.Attachments.Add(e.FullPath) Dim client As SmtpClient = New SmtpClient("<<server>>") client.Connect() client.Send(message) client.Disconnect() End Sub
Comment