Überwachung von Orten

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Nibel.

    Überwachung von Orten

    Hallo

    Ich habe dieses Scripts einmal geschrieben und es funktionierte auch prima, als ich es heute wieder einmal testen wollte kommt immer eine Fehlermeldung: " Das angegebene Pfadformat wird nicht unterstützt." zu der Zeile:

    VB.NET-Quellcode

    1. oStream = New IO.StreamWriter(sFile)

    Ihr könnt es ja mal bei euch testen ob es funktioniert, und dann ein einfach eine Antwort schreiben.

    VB.NET-Quellcode

    1. Imports System.IO
    4. Public Class Form1
    7. Private watchPath As String = "c:/"
    12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    14. Dim watcher As New FileSystemWatcher(watchPath)
    17. watcher.NotifyFilter = NotifyFilters.LastAccess Or NotifyFilters.FileName
    18. watcher.Filter = "*.*"
    21. AddHandler watcher.Changed, AddressOf OnChanged
    22. AddHandler watcher.Created, AddressOf OnChanged
    23. AddHandler watcher.Deleted, AddressOf OnChanged
    24. AddHandler watcher.Renamed, AddressOf Onrenamed
    26. watcher.SynchronizingObject = Me
    28. watcher.EnableRaisingEvents = True
    31. End Sub
    34. Private Sub OnChanged(ByVal Source As Object, ByVal e As FileSystemEventArgs)
    37. ListBox1.Items.Add("Datei: " & e.FullPath() & " " & e.ChangeType.ToString())
    40. End Sub
    42. Private Sub Onrenamed(ByVal Source As Object, ByVal e As RenamedEventArgs)
    45. ListBox1.Items.Add("Datei: " & e.OldFullPath() & " umbenannt in " & e.FullPath)
    49. End Sub
    51. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    53. Dim sFile As String
    55. sFile = Application.StartupPath & "C:\system32-liste.dat"
    56. ListBox_Save(ListBox1, sFile)
    59. End Sub
    61. Public Sub ListBox_Save(ByVal ListBox As ListBox, ByVal sFile As String)
    63. ' Inhalt einer ListBox speichern
    64. Dim oStream As IO.StreamWriter
    65. Dim i As Short
    67. oStream = New IO.StreamWriter(sFile)
    69. For i = 0 To ListBox.Items.Count - 1
    70. oStream.WriteLine(ListBox.Items(i))
    71. Next
    72. oStream.Close()
    73. End Sub
    75. Public Sub ListBox_Read(ByVal ListBox As ListBox, _
    76. ByVal sFile As String)
    78. ' Inhalt einer ListBox speichern
    79. Dim oStream As IO.StreamReader
    80. Dim sLine As String
    82. ' ListBox löschen
    83. ListBox.Items.Clear()
    85. ' Existsiert die Datei?
    86. Dim oFile As New IO.FileInfo(sFile)
    88. If oFile.Exists() = True Then
    89. oStream = New IO.StreamReader(sFile)
    90. ' Datei zeilenweise auslesen
    91. Do
    92. sLine = oStream.ReadLine()
    93. If IsNothing(sLine) Then Exit Do
    94. ListBox.Items.Add(sLine)
    95. Loop
    96. oStream.Close()
    97. End If
    98. End Sub
    100. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    101. Form2.Show()
    103. End Sub
    104. End Class


    Verschoben, da ein nicht funktionierender Code kein Tipp sein kann.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()

    als ich es heute wieder einmal testen wollte kommt immer eine

    das kann nicht funz ....

    VB.NET-Quellcode

    1. Private watchPath As String = "c:\"

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „SystemUnknow“ ()

    VB.NET-Quellcode

    1. sFile = Application.StartupPath & "C:\system32-liste.dat"

    Das ergibt ja auch keinen Sinn. Da stände dann "C:\blabla\blu\C:\system32-liste.dat"
    Ich denk mal, das ist einfach nur ein Denkfehler und du musst das C: entfernen...

    So solte es klappen:

    VB.NET-Quellcode

    1. sFile = Path.Combine(Application.StartupPath , "system32-liste.dat"