"Der Zugriff auf den Pfad "D:\Users\Network\Desktop\Gif" wurde verweigert."

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Hatschi.

    "Der Zugriff auf den Pfad "D:\Users\Network\Desktop\Gif" wurde verweigert."

    Hallo Leute.
    Ich habe ein Programm in Visual Basic 2010 geschrieben, dass den
    Ordnerinhalt in einer Textdatei abspeichern soll. Zum Beispiel hat der
    Ordner folgenden Inhalt:


    • Bild1.gif
    • Bild2.gif
    • Bild3.gif
    Dann soll das oben in einer Textdatei abgespeichert werden. Wenn
    ich das Programm starte und den Ziel Ordner und den Ordner in dem es
    abgespeichert werden soll auswähle und danach auf Speicher drücke kommt
    im Codefenster die Naricht:



    UnauthorizedAccesException wurde nicht behandelt.
    Der Zugriff auf den Pfad "D:\Users\Network\Desktop\Gif" wurde verweigert.





    Weiß jemand wie ich das beheben kann? Als Administrator ausführen geht auch nicht.
    Danke vielmals!

    Dann nimm einen Pfad, der als Nicht-Administrator zugreifbar ist.
    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!

    C: und D: sind meine Partitionen ;)
    Und ein Pfad nehmen der ohne Administratorrechte geht ist aber nicht die Lösung des Problems.
    Button3 ist der Button um die Textdatei zu Erstellen


    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System
    3. Imports System.Text
    6. Public Class Form1
    7. Dim pfad As String
    8. Dim pfad2 As String
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. End Sub
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. Dim f As String
    17. f = TextBox1.Text
    18. Dim direktion As New System.IO.DirectoryInfo(pfad)
    19. For Each file1 As System.IO.FileInfo In direktion.GetFiles
    20. If file1.Extension = f Or file1.Extension = f Then
    21. ListBox1.Items.Add(file1.FullName)
    22. End If
    23. Next
    24. End Sub
    28. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    29. FolderBrowserDialog1.ShowDialog()
    30. pfad = FolderBrowserDialog1.SelectedPath
    31. TextBox2.Text = FolderBrowserDialog1.SelectedPath
    32. End Sub
    37. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    38. Dim p As String = (pfad2)
    39. Dim fs As FileStream = File.Create(p)
    40. Dim info As Byte() = New UTF8Encoding(True).GetBytes(p)
    41. fs.Write(info, 0, info.Length)
    42. fs.Close()
    43. End Sub
    47. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    48. FolderBrowserDialog2.ShowDialog()
    49. pfad2 = FolderBrowserDialog2.SelectedPath
    50. TextBox3.Text = FolderBrowserDialog2.SelectedPath
    51. End Sub
    54. End Class

    Tim2107 schrieb:

    Als Administrator ausführen geht auch nicht.

    Tim2107 schrieb:

    Und ein Pfad nehmen der ohne Administratorrechte geht ist aber nicht die Lösung des Problems.
    Das widerspricht sich irgendwie. :S
    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!

    Nicht zwangsweise, wenn beispielsweise UAC an ist steht dies in manchen Fällen im Konflikt mit "Als Administrator starten". Frag mich nicht wieso, der Sinn erschließt sich mir nicht aber aus Erfahrung kann ich sagen das es mitunter der Fall sein kann.

    Alle Ordner die ich auf dem Desktop erstelle sind schreibgeschützt. Wenn den Hacken rausmachen, abspeicher und wieder in die Eigenschaften gehen ist wieder der Hacken drin. Der Bug ist schon lange bekannt, aber hat mir nie Probleme gemacht bis heute :D
    Jemand eine Antwort parat?

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

    Hi
    kann es sein, dass du versuchst, einen Ordner zu beschreiben? Du suchst per FolderBrowserDialog den Ordner aus und speicherst dann eine Datei in genau diesen Pfad oder sehe ich das falsch?
    Da tränen mir die Augen:

    VB.NET-Quellcode

    1. If file1.Extension = f Or file1.Extension = f Then

    Schau dir auch mal IO.Directory.GetFiles und IO.Directory.GetDirectories an. Da brauchst du nicht über DirectoryInfos gehen, wenns einen nicht so umständlichen Weg gibt. Des weiteren frägst du nicht ab, ob das von der ShowDialog-Methode zurückgegebene DialogResult OK ist. Klick mal auf Abbrechen.
    Über die anderen Kleinigkeiten sag ich jetzt einfach mal nichts, aber ich würde eine sinnvollere Benennung der Variablen empfehlen.

    Gruß
    ~blaze~

    VB.NET-Quellcode

    1. Dim f As String
    2. f = TextBox1.Text
    3. Dim direktion As New System.IO.DirectoryInfo(pfad)
    4. For Each file1 As System.IO.FileInfo In direktion.GetFiles
    5. If file1.Extension = f Or file1.Extension = f Then
    6. ListBox1.Items.Add(file1.FullName)
    7. End If
    8. Next
    9. End Sub


    Der Eintrag in der Textbox, sollte nur für die Dateiendung da sein, wenn man z.B. .gif eingibt sucht es alle .gif Files raus.
    Achja da mit dem

    VB.NET-Quellcode

    1. If file1.Extension = f Or file1.Extension = f Then
    sollte eigentlich

    VB.NET-Quellcode

    1. If file1.Extension = f then
    heißen :D
    Tut mir leid bin noch nicht so Erfahren mit VB :)

    Ja du versuchst in ein Ordner zu schreiben! Ich war mal so frei und habe das ganze Nachkonstruiert und verbessert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System
    3. Imports System.Text
    6. Public Class Form1
    7. Dim pfad As String
    8. Dim pfad2 As String
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. End Sub
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    16. Dim f As String = TextBox1.Text
    17. Dim direktion As New System.IO.DirectoryInfo(pfad)
    18. For Each file1 As System.IO.FileInfo In direktion.GetFiles
    19. If file1.Extension = f Then ListBox1.Items.Add(file1.FullName)
    20. Next
    21. End Sub
    25. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    26. With FolderBrowserDialog1
    27. If .ShowDialog = DialogResult.OK Then
    28. pfad = FolderBrowserDialog1.SelectedPath
    29. TextBox2.Text = pfad
    30. End If
    31. End With
    32. End Sub
    37. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    38. Dim p As String = pfad2 ' + 'Hier müsste der Name der Datei hinkommen
    39. Dim fs As FileStream = File.Create(p)
    40. Dim info As Byte() = New UTF8Encoding(True).GetBytes(p)
    41. fs.Write(info, 0, info.Length)
    42. fs.Close()
    43. End Sub
    47. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    48. With FolderBrowserDialog2
    49. If .ShowDialog = DialogResult.OK Then
    50. pfad2 = FolderBrowserDialog2.SelectedPath
    51. TextBox3.Text = pfad2
    52. End If
    53. End With
    54. End Sub
    57. End Class


    Da ich nicht genau weiß wie die Datei heißen soll, habe ich dir die Stelle kommentiert.

Facebook
Telefonspende