Der Prozess kann nicht auf die Datei "Datei.txt" zugreifen, da sie von einem anderen Prozess verwendet wird.

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    Der Prozess kann nicht auf die Datei "Datei.txt" zugreifen, da sie von einem anderen Prozess verwendet wird.

    Mache einen Keybinder und habe schon mithilfe des Forums eines meiner Größten probleme behoben doch jetzt greift SAMP(San Andreas Multiplayer) und mein Programm auf
    C:\Users\Marvin\Documents\GTA San
    Andreas User Files\SAMP\chatlog.txt
    Das Problem bei der Sache ist das ich bei diesem Code Abschnitt

    VB.NET-Quellcode

    1. Dim sr As New IO.StreamReader("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    2. Dim auftrag As String = sr.ReadToEnd
    3. sr.Close()

    Diese Fehlermeldung bekomme
    Der Prozess kann nicht auf die Datei "C:\Users\Marvin\Documents\GTA San
    Andreas User Files\SAMP\chatlog.txt" zugreifen, da sie von einem anderen
    Prozess verwendet wird.
    Wie kann ich es Lösen das beide darauf zugreifen können? ?(

    Edit by hal2000:
    - sinnlose Tags wie "die, nicht, der, von, wird" entfernt.

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

    Wie wäre es mit

    VB.NET-Quellcode

    1. Dim auftrag As String
    2. Using sr As New IO.StreamReader("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    3. auftrag = sr.ReadToEnd
    4. End Using
    oder besser

    VB.NET-Quellcode

    1. Dim auftrag As String
    2. auftrag = System.IO.File.ReadAllText("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    hal2000 schrieb:

    Dafür gibts die Volumeschattenkopie.
    Ich denke, das solch Klopper nicht erforderlich ist, denn mit dem Notepad kannst Du eine Datei auch mehrfach öffnen. Dafür gibt es die Open-Flags.
    Es kommt letztenendes darauf an, was sonst noch so mit dieser Datei veranstaltet wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann probier mal IO.FileStream

    VB.NET-Quellcode

    1. Dim sr As New IO.FileStream("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So oder wie

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim auftrag As String
    3. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    4. Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles auftraege_annehem.Tick
    9. 'Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    10. Dim sr As New IO.FileStream("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
    12. sr.Close()
    13. If auftrag(auftrag.Length - 3) = "gib /accept corpse ein, um den Auftrag anzunehmen!" Then
    14. My.Computer.Keyboard.SendKeys("t")
    15. My.Computer.Keyboard.SendKeys("/accept corpse")
    16. My.Computer.Keyboard.SendKeys("{ENTER}")
    17. My.Computer.Audio.Play(My.Resources.schliefe, AudioPlayMode.Background)
    18. End If
    19. End Sub
    20. End Class

    Dann kommt immer
    NullReferenceException Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
    Und wenn ichs so Probiere

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    3. Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles auftraege_annehem.Tick
    8. 'Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    9. Dim sr As New IO.FileStream("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
    10. Dim auftrag As String
    11. sr.Close()
    12. If auftrag(auftrag.Length - 3) = "gib /accept corpse ein, um den Auftrag anzunehmen!" Then
    13. My.Computer.Keyboard.SendKeys("t")
    14. My.Computer.Keyboard.SendKeys("/accept corpse")
    15. My.Computer.Keyboard.SendKeys("{ENTER}")
    16. My.Computer.Audio.Play(My.Resources.schliefe, AudioPlayMode.Background)
    17. End If

    Dann ist
    Warnung 1 Die auftrag-Variable wird verwendet, bevor ihr ein Wert zugewiesen wird. Zur Laufzeit kann eine Nullverweisausnahme auftreten. C:\Users\Marvin\documents\visual studio 2010\Projects\GRPBestatterKeybinder\GRPBestatterKeybinder\Form1.vb 13 12 GRPBestatterKeybinder

    Mach ichs einfach nur komplett blöd?

    Analog diesem hier:

    RodFromGermany schrieb:

    VB.NET-Quellcode

    1. Dim auftrag As String
    2. Using sr As New IO.StreamReader("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    3. auftrag = sr.ReadToEnd
    4. End Using
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dan passsiert immer das
    Fehler 1 Die Datei "obj\x86\Debug\GRPBestatterKeybinder.exe" kann nicht in "bin\Debug\GRPBestatterKeybinder.exe" kopiert werden. Der Prozess kann nicht auf die Datei "bin\Debug\GRPBestatterKeybinder.exe" zugreifen, da sie von einem anderen Prozess verwendet wird. GRPBestatterKeybinder

    eigentlich nicht das kam einfach so aus heiterem Himmel hier is ma mein komplettes Script:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
    3. Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles auftraege_annehem.Tick
    8. 'Dim auftrag() As String = System.IO.File.ReadAllLines("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    9. Dim auftrag As String
    10. Using sr As New IO.StreamReader("C:\Users\Marvin\Documents\GTA San Andreas User Files\SAMP\chatlog.txt")
    11. auftrag = sr.ReadToEnd
    12. End Using
    13. If auftrag(auftrag.Length - 3) = "gib /accept corpse ein, um den Auftrag anzunehmen!" Then
    14. My.Computer.Keyboard.SendKeys("t")
    15. My.Computer.Keyboard.SendKeys("/accept corpse")
    16. My.Computer.Keyboard.SendKeys("{ENTER}")
    17. My.Computer.Audio.Play(My.Resources.schliefe, AudioPlayMode.Background)
    18. End If
    19. End Sub
    21. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    22. My.Computer.Audio.Play(My.Resources.schliefe, AudioPlayMode.Background)
    23. End Sub
    25. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    26. My.Computer.Audio.Stop()
    27. End Sub
    28. Private Sub keybindes_Tick(sender As System.Object, e As System.EventArgs) Handles keybindes.Tick
    29. If GetAsyncKeyState(Keys.NumPad1) Then
    30. keybindes.Start()
    31. My.Computer.Keyboard.SendKeys("t")
    32. My.Computer.Keyboard.SendKeys("/reservecar")
    33. My.Computer.Keyboard.SendKeys("{ENTER}")
    34. End If
    35. If GetAsyncKeyState(Keys.NumPad2) Then
    36. keybindes.Start()
    37. My.Computer.Keyboard.SendKeys("t")
    38. My.Computer.Keyboard.SendKeys("/zoll")
    39. My.Computer.Keyboard.SendKeys("{ENTER}")
    40. End If
    41. If GetAsyncKeyState(Keys.NumPad3) Then
    42. keybindes.Start()
    43. My.Computer.Keyboard.SendKeys("t")
    44. My.Computer.Keyboard.SendKeys("/vehradio")
    45. My.Computer.Keyboard.SendKeys("{ENTER}")
    46. End If
    47. If GetAsyncKeyState(Keys.NumPad4) Then
    48. keybindes.Start()
    49. My.Computer.Keyboard.SendKeys("t")
    50. My.Computer.Keyboard.SendKeys("/lock")
    51. My.Computer.Keyboard.SendKeys("{ENTER}")
    52. End If
    53. If GetAsyncKeyState(Keys.NumPad5) Then
    54. keybindes.Start()
    55. My.Computer.Keyboard.SendKeys("t")
    56. My.Computer.Keyboard.SendKeys("/engine")
    57. My.Computer.Keyboard.SendKeys("{ENTER}")
    58. End If
    59. If GetAsyncKeyState(Keys.NumPad3) Then
    60. keybindes.Start()
    61. My.Computer.Keyboard.SendKeys("t")
    62. My.Computer.Keyboard.SendKeys("/lights")
    63. My.Computer.Keyboard.SendKeys("{ENTER}")
    64. End If
    65. If GetAsyncKeyState(Keys.NumPad7) Then
    66. keybindes.Start()
    67. My.Computer.Keyboard.SendKeys("t")
    68. My.Computer.Keyboard.SendKeys("/exit")
    69. My.Computer.Keyboard.SendKeys("{ENTER}")
    70. End If
    71. If GetAsyncKeyState(Keys.NumPad8) Then
    72. My.Computer.Keyboard.SendKeys("t")
    73. My.Computer.Keyboard.SendKeys("/takecorps ")
    74. End If
    75. If GetAsyncKeyState(Keys.NumPad9) Then
    76. keybindes.Start()
    77. My.Computer.Keyboard.SendKeys("t" & "/carlock" & "{Enter}")
    78. End If
    79. End Sub
    80. End Class

    Mal kurz überflogen:
    Wozu brauchst Du 2 Timer?
    Ersetze einen durch einen FileSystemWatcher und lass Dir ein Event schicken, wenn die Datei geändert wird,
    Ersetze den anderen durch das Key_Down-Event.
    An welcher Stelle knallt er eigentlich?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    1. Einfach so

    2. Kp wie en FyleSystemwatcher geht.

    3. Jetzt is hal das
    Fehler 1 Die Datei "obj\x86\Debug\GRPBestatterKeybinder.exe" kann nicht
    in "bin\Debug\GRPBestatterKeybinder.exe" kopiert werden. Der Prozess
    kann nicht auf die Datei "bin\Debug\GRPBestatterKeybinder.exe"
    zugreifen, da sie von einem anderen Prozess verwendet wird.
    GRPBestatterKeybinder
    (Hab einfach en neuse Project gemacht und jetzt gehts)
    im code selber kommt kein Fehler. Und vorher war es so das es hies auf die chatlog.txt greift ein anderer Prozess zu deswegen kann ich nicht darauf zugreifen.

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

Facebook
Telefonspende