Hey, ich arbeite gerade an einem Programm bei dem man Bilder mit vor und zurück Tasten ansehen kann. Das funktioniert soweit auch. Jetzt möchte ich aber auch Bilder löschen, das würde ja auch fast funktionieren. Ich möchte aber wenn ich das 2. von z.B. 4 Bildern lösche, die Bilder 3 und 4 um eine zahl umbenannt werden (also in 2 und 3). Leider bekomme ich immer folgende Fehlermeldung:
IOException wurde nicht behandelt.
Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "C:\Users\***Verzeichnis***\Objekt Haus Plan 2.png" zugreifen, da sie von einem anderen Prozess verwendet wird.
Ich verstehe schon was mir die Fehlermeldung sagt, nur weis ich nicht wie ich das sonst hinbekomme (# = die zeilen wo die Fehlermeldung auftritt)
Ich bin mir ziemlich sicher es gibt viel bessere Wege um das gleiche zu erreichen, wäre super wenn ihr mir einen zeigen könntet oder mir zumindest sagen könnt wie ich den Fehler aus meine Lösung bekomme.
mfg
IOException wurde nicht behandelt.
Ein Ausnahmefehler des Typs "System.IO.IOException" ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Der Prozess kann nicht auf die Datei "C:\Users\***Verzeichnis***\Objekt Haus Plan 2.png" zugreifen, da sie von einem anderen Prozess verwendet wird.
Ich verstehe schon was mir die Fehlermeldung sagt, nur weis ich nicht wie ich das sonst hinbekomme (# = die zeilen wo die Fehlermeldung auftritt)
VB.NET-Quellcode
- Imports System.IO
- Public Class FormObjektplanDetails
- 'Plan Variable
- Dim PlanAktuell As String
- Private Sub ButObjektplanLoschen_Click(sender As Object, e As EventArgs) Handles ButObjektplanLoschen.Click
- Dim ApplicatonPath As String = Application.StartupPath
- Dim PlanAndern As String = PlanAktuell
- Dim PlanNrNeu As String
- If My.Computer.FileSystem.FileExists(ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanAktuell & ".png") = True Then
- My.Computer.FileSystem.DeleteFile(ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanAktuell & ".png") '#
- Do
- PlanAndern += 1
- If My.Computer.FileSystem.FileExists(ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanAndern & ".png") = True Then
- PlanNrNeu = PlanAndern
- PlanNrNeu -= 1
- My.Computer.FileSystem.CopyFile(ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanAndern & ".png", ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanNrNeu & ".png") '#
- My.Computer.FileSystem.DeleteFile(ApplicatonPath & "\Dateien\Objekt " & TexBoxObjGebaudebezeichnung.Text & " Plan " & PlanAndern & ".png") '#
- End If
- Loop
- End If
- End Sub
- End Class
Ich bin mir ziemlich sicher es gibt viel bessere Wege um das gleiche zu erreichen, wäre super wenn ihr mir einen zeigen könntet oder mir zumindest sagen könnt wie ich den Fehler aus meine Lösung bekomme.
mfg