Meldet Datei wo keine ist (HILFE)

Question

Hallo,

Ich habe folgendes Problem.

Wenn ich eine Datei z.B. im Desktop speichere, und es im Desktop einen Ordner gibt und in diesem ordner z.B. eine Datei liegt die genau so heißt wie die Datei die ich im Desktop erstellen möchte wo keine ist. Dann Meldet er mir Fehler

Hier mal mein Code:

Vielleicht findet ihr da einen Fehler , ich kann da keinen entdecken. 

Ich kann mir das Problem auch irgendwie nicht erklären

        Try
            Try
                'MsgBox(ServerProppath)

                Try
                    If My.Computer.FileSystem.DirectoryExists(ServerOPpath) = True Then
                        If My.Computer.FileSystem.FileExists(ServerOPpath & "\" & "ops.txt") = True Then
                            Dim ServerOPLöschen As MsgBoxResult = MsgBox("Ich sehe, in diesem Pfad existiert bereits eine ""ops.txt"" Datei " & vbNewLine & "Möchten Sie diese Datei löschen bzw. Überschreiben ??" & vbNewLine & "Sie hatten folgenden Pfad ausgewählt: " & ServerOPpath, MsgBoxStyle.YesNo, "Eine Datei steht im Weg")
                            If (ServerOPLöschen = MsgBoxResult.Yes) Then

                                My.Computer.FileSystem.DeleteFile(ServerOPpath & "\" & "ops.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
                     

                            Try
                                ' Beginn des Speicherungs Prozesses
                                Dim Speicherpfad As String = ServerOPpath & "\" & "ops.txt"

                                Dim count As Integer = 0
                                count = ListBox1.Items.Count - 1
                                '   System.IO.File.Create(ServerOPpath & "\" & "ops.txt")

                                '  For i = 0 To count

                                'System.IO.File.AppendAllText(Speicherpfad, i)
                                'Next

                                'For n = 0 To ListBox1.Items.Count - 1
                                '    System.IO.File.AppendAllText(Speicherpfad, n)
                                '     System.IO.File.AppendAllText(Speicherpfad, vbNewLine)
                                '  Next


                                For Each eintrag In ListBox1.Items

                                    System.IO.File.AppendAllText(Speicherpfad, eintrag)
                                    System.IO.File.AppendAllText(Speicherpfad, vbNewLine)
                                Next
                            Catch ex As Exception
                                MsgBox(Err.Description)
                            End Try
                        End If
                            If (ServerOPLöschen = MsgBoxResult.No) Then
                                Dim DoyouWanttoselectanewpath As MsgBoxResult = MsgBox("Möchten Sie einen neuen Pfad für die Datei auswählen?", MsgBoxStyle.YesNo, "Neuer Pfad ?")
                                If (DoyouWanttoselectanewpath = MsgBoxResult.Yes) Then
                                    propertiessaveonly.ShowDialog()
                                    ServerProppath = propertiessaveonly.SelectedPath
                                    ServerPropertiestoTextfile()
                                End If
                                If (DoyouWanttoselectanewpath = MsgBoxResult.No) Then
                                    MsgBox("Speicherungs Prozess wurde vom Benutzer abgebrochen", MsgBoxStyle.Exclamation, "User wants to cancel")
                                End If
                            End If
                        Else
                            Try
                                Try
                                    ' Beginn des Speicherungs Prozesses

                                    Try
                                        ' Beginn des Speicherungs Prozesses
                                        Dim Speicherpfad As String = ServerOPpath & "\" & "ops.txt"
                                        Dim Itemtext As String = ListBox1.SelectedItem
                                        Dim count As Integer = 0
                                        count = ListBox1.Items.Count - 1
                                        '     System.IO.File.Create(ServerOPpath & "\" & "ops.txt")

                                        '  For i = 0 To count

                                        '       System.IO.File.AppendAllText(Speicherpfad, i)
                                        '        System.IO.File.AppendAllText(Speicherpfad, vbNewLine)
                                        '     Next

                                        For Each eintrag In ListBox1.Items

                                            System.IO.File.AppendAllText(Speicherpfad, eintrag)
                                            System.IO.File.AppendAllText(Speicherpfad, vbNewLine)
                                        Next
                                    Catch ex As Exception
                                        MsgBox(Err.Description)
                                    End Try

                                Catch ex As Exception
                                    MsgBox(Err.Description)
                                End Try
                            Catch ex As Exception
                                MsgBox(Err.Description)
                            End Try
                        End If
                    End If
                Catch ex As Exception
                    MsgBox(Err.Description)
                End Try
            Catch ex As Exception
                MsgBox(Err.Description)
            End Try
        Catch ex As Exception

        End Try

PS: Den Pfad wähle ich zuvor über einen Button mit dem FolderbrowserDialog aus

Ich hoffe ihr könnt mir helfen

Answer 1

Hallo,

Dann Meldet er mir Fehler

...muss ich was sagen? Und 2. Wie oft habe ich und wahrscheinlich auch schon andere gesagt, das du den My-Namespace meiden sollst?
Weiterhin, versuche funktionsfähige Codeausschnitte zu zeigen und nicht "dein halbes Programm".

Nachdem ich alles auskommentierte was anscheinend keine wirklich wichtige Rolle spielte, bemerkte ich folgendes:

• Wenn der Ordner nicht exisitiert, dann wird er nicht erstellt.
  
• X-fach Try-Catch'es zu verschachteln bringt: nichts! Einer würde reichen
• Dein Code doppelt sich extrem. Man könnte geschätzt 1/3 weg kürzen

---

Koopakiller [kuːpakɪllɐ] (Tom Lambert)
Webseite | Code Beispiele | Facebook | Twitter | Snippets   C# ↔ VB.NET Konverter
Markiert bitte beantwortende Posts als Antwort und bewertet Beiträge. Danke.

Answer 2

Hallo Tobpy,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Wenn nicht, neue Rückfragen oder Ergänzungen zu diesem Thread bleiben weiterhin möglich.

Danke und viele Grüße,
Ionut

---

Ionut Duma, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip„Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.