vb.net 2012 / Der (Schreib) Zugriff auf den Pfad "C:\Dokumente\Test" wurde verweigert.

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    vb.net 2012 / Der (Schreib) Zugriff auf den Pfad "C:\Dokumente\Test" wurde verweigert.

    Hallo Zusammen,

    ich habe ein Problem mit einem Programm und komme nicht weiter. ?( ?( ?(
    Immer wenn ich etwas speichern möchte bekomme ich die Mitteilung:" Der Zugriff auf den Pfad "C:\Dokumente\Test" wurde verweigert.

    Öffnen von dort kann ich. Nur eben nicht abspeichern. :cursing: :cursing:

    Ich benutze Win10 und bin als Admin angemeldet. Daran kann es nicht liegen.

    Hier mal das Programm.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class frmEditor
    5. Const dateipfad = "C:\VBDN\Dokumente"
    6. Const Anwendungstitel = "Text"
    8. Private Datei As String
    9. Dim lstVerzeichnisse As Object
    11. Private Sub mnuSpeichernUnter_Click(sender As Object, e As EventArgs) Handles mnuSpeichernUnter.Click
    13. Dim fs As FileStream
    14. Dim sw As StreamWriter
    16. With dlgDateiSpeichern
    17. .AddExtension = True 'Dateierweiterung anfügen
    18. .CreatePrompt = True 'Nachfrage bei neuer Datei
    19. .DefaultExt = ".txt" 'Standarderweiterung
    20. .DereferenceLinks = True 'Verknüpfung auflösen
    21. 'Dateifilter: Text- und Alle Dateien
    22. .Filter = "Text (*.txt)|*.txt| Alle Dateien (*.*)|*.*"
    23. 'Anfangsverzeichnis
    24. .InitialDirectory = "C:\VBDN\Dokumente"
    25. .OverwritePrompt = True 'Nachfrage bei Überschreiben
    26. .RestoreDirectory = True 'Anfangsverzeichnis wiederherstellen
    27. .Title = "Speichern unter:"
    28. .ValidateNames = True 'Dateinamen auf korrekte Zeichen überprüfen
    29. End With
    31. If dlgDateiSpeichern.ShowDialog = Windows.Forms.DialogResult.OK Then
    32. Datei = dlgDateiSpeichern.FileName
    33. End If
    35. Try
    36. fs = New FileStream(dateipfad, FileMode.Create)
    37. sw = New StreamWriter(fs)
    38. sw.WriteLine(txtText.Text)
    39. sw.Close()
    41. Catch ex As Exception
    42. MessageBox.Show(ex.Message)
    43. End Try
    44. End Sub
    46. Private Sub mnuNeu_Click(sender As Object, e As EventArgs) Handles mnuNeu.Click
    47. If txtText.Modified Then
    48. Dim s As String = "Der Inhalt wurde geändert. " _
    49. & vbCrLf & _
    50. "Wollen Sie die Datei schließen ohne zu speichern?"
    52. If MessageBox.Show(s, Anwendungstitel, _
    53. MessageBoxButtons.YesNo, _
    54. MessageBoxIcon.Exclamation, _
    55. MessageBoxDefaultButton.Button2) _
    56. = Windows.Forms.DialogResult.No Then
    57. Exit Sub
    58. End If
    59. End If
    60. txtText.Clear()
    61. txtText.Modified = False
    62. Datei = ""
    63. Text = Anwendungstitel & "-" & "Unbenannt"
    64. End Sub
    66. Private Sub mnuÖffnen_Click(sender As Object, e As EventArgs) Handles mnuÖffnen.Click
    67. Dim Dateien As New OpenFileDialog
    68. Dim fs As FileStream
    69. Dim sr As StreamReader
    70. Dim zeile As String
    72. Dateien.Multiselect = True
    73. Dateien.InitialDirectory = "C:\VBDN\Dokumente"
    74. Dateien.Filter = "Textdateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*"
    75. Dateien.Title = " Datei zum Öffnen wählen"
    76. If Dateien.ShowDialog() = Windows.Forms.DialogResult.OK Then
    77. For Each s As String In Dateien.FileNames
    78. 'MessageBox.Show("Öffen: " & s)
    80. fs = New FileStream(s, FileMode.Open)
    81. sr = New StreamReader(fs)
    82. Do Until sr.Peek() = -1
    83. zeile = sr.ReadLine()
    84. txtText.Text &= zeile & vbCrLf
    85. Loop
    86. sr.Close()
    87. Next
    88. Else
    89. MessageBox.Show("Abbruch")
    90. Exit Sub
    91. End If
    93. End Sub
    95. Private Sub mnuBeenden_Click(sender As Object, e As EventArgs) Handles mnuBeenden.Click
    96. Close()
    97. End Sub
    98. End Class

    Willkommen im Forum :)
    Ohne deinen Code jetzt zu beurteilen stelle ich dir 2 Fragen:
    Zeile #32: Was hast du mit der Variable Datei vor? (Die Variable schaut verwaist aus...)
    Zeile #36: Was steht den in der Konstante dateipfad? siehe einmal den FileStream-Konstruktor an...

    Jou.
    Ebenfalls: Willkommen im Forum. :thumbup:

    Strongbow schrieb:

    Pfad "C:\Dokumente\Test

    Strongbow schrieb:

    VB.NET-Quellcode

    1. Const dateipfad = "C:\VBDN\Dokumente"
    Ja was denn nun?
    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!

    mox schrieb:

    geclosed
    wird er:

    Strongbow schrieb:

    VB.NET-Quellcode

    1. sr.Close()
    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!

    Erstmal,
    vielen Dank für die Infos.

    Den Dateipfad habe ich abgeändert und die Zeilen 31-33 wieder entfernt.
    Hier wollte ich noch eine weitere abfrage einfügen, bin aber noch nicht dazu gekommen.
    Leider bekomme ich noch immer die gleiche Info.

    Strongbow schrieb:

    Den Dateipfad habe ich abgeändert
    Mach mal ein kleines neues Projekt mit einem Button und einem Zugriff auf diesen Pfad / eine Datei da drin.
    Poste den präzisen Pfad.
    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!

    Ich habe nochmal ein kl. Prog geschrieben mit einem anderen Pfad und das funzt.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Dim lblA As Object
    7. Private Sub btnSchreiben_Click(sender As Object, e As EventArgs) Handles btnSchreiben.Click
    8. Dim fs As New FileStream("C:\test\Dokumente\test.txt", FileMode.Create)
    9. Dim sw As New StreamWriter(fs)
    10. sw.WriteLine(txtbox.Text)
    11. sw.Close()
    12. txtbox.Clear()
    13. End Sub
    15. Private Sub btnLesen_Click(sender As Object, e As EventArgs) Handles btnLesen.Click
    16. Dim fs As FileStream
    17. Dim sr As StreamReader
    18. Dim datei As String = "C:\test\Dokumente\test.txt"
    19. Dim zeile As String
    21. Try
    22. If Not File.Exists(datei) Then
    23. MessageBox.Show("Datei " & datei & " existiert nicht!")
    24. Exit Sub
    25. End If
    27. fs = New FileStream(datei, FileMode.Open)
    28. sr = New StreamReader(fs)
    29. Do Until sr.Peek() = -1
    30. zeile = sr.ReadLine
    31. txtbox.Text &= zeile & vbCrLf
    32. Loop
    33. sr.Close()
    34. Catch ex As Exception
    35. MessageBox.Show(ex.Message)
    36. End Try
    37. End Sub
    39. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    40. Close()
    41. End Sub
    42. End Class

    Strongbow schrieb:

    mit einem anderen Pfad
    Na also.
    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!

Facebook
Telefonspende