Schnellzugriff löschen

  • VB.NET

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

    Ich glaube er meint die "Schnellzugriff"-Übersicht im Explorer. Und das möchte er aus seinem Programm heraus manipulieren
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems
    Meine Privatwebseite: SimonC.eu

    Bitte nicht wundern, wenn meine Aktivitäten im Forum etwas langsamer sind, ich baue gerade mein Nebengewerbe zum Vollgewerbe aus.
    Ich versuche auf euch zurückzukommen :)

    Ich glaube der einzige Weg ist es, die besagten Ordner zu löschen.
    Der Windows-Schnellzugriff ist nur eine Ansicht von kürzlich verwendeten Ordnern, die kann man anders nicht da raus bekommen, soweit ich weiß.

    Nachtrag: Es gibt wohl doch Wege, habe ich gerade bei Google gelesen. Sorry für die falsche Antwort zuvor.


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

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

    Also falls @haiflosse1 tatsächlich den Schnellzugriff vom Explorer meint, der lässt sich per Code auflisten, Ordner anpinnen und auch wieder entfernen. Auf die schnelle nur VB6 Code zur Hand.

    Visual Basic-Quellcode

    1. ​
    2. Option Explicit
    4. Private Sub Command1_Click()
    6. ' List QuickAccess
    8. Dim oShell As Object
    9. Dim oQuickAccess As Object
    10. Dim oItem As Object
    11. Set oShell = CreateObject("Shell.Application")
    12. Set oQuickAccess = oShell.Namespace("shell:::{679f85cb-0220-4080-b29b-5540cc05aab6}")
    13. For Each oItem In oQuickAccess.Items
    14. Debug.Print oItem.Name, oItem.Path
    15. Next
    16. End Sub
    18. ' Pin Folder to QuickAccess
    19. ' Set oShell = CreateObject("Shell.Application")
    20. ' Set oQuickAccess = oShell.Namespace("C:\Folder")
    21. ' Call oQuickAccess.Self.InvokeVerb("pintohome")
    23. ' Unpin Folder from QuickAccess
    24. ' Set oShell = CreateObject("Shell.Application")
    25. ' Set oQuickAccess = oShell.Namespace("shell:::{679f85cb-0220-4080-b29b-5540cc05aab6}")
    26. ' For Each oItem In oQuickAccess.Items
    27. ' If oItem.Path = "C:\Folder" Then
    28. ' Call oItem.InvokeVerb("unpinfromhome")
    29. ' End If
    30. ' Next

    Ich denke das Prinzip ist klar und ist locker nach .NET übersetzbar.
    Mfg -Franky-

    Danke für die Antworten.
    MIt der ki haben wir gemeinsam eine Lösung gefunden:
    Hier der Code

    VB.NET-Quellcode

    1. Imports System.IO
    3. Module MainModule
    4. Sub Main()
    5. Try
    6. ' Pfad zum Schnellzugriff-Verzeichnis
    7. Dim quickAccessPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData\Roaming\Microsoft\Windows\Recent")
    9. ' Alle Dateien im Schnellzugriff-Verzeichnis löschen
    10. For Each file As String In Directory.GetFiles(quickAccessPath)
    11. File.Delete(file)
    12. Next
    14. ' Pfad zum AutomaticDestinations-Verzeichnis
    15. Dim automaticDestinationsPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData\Roaming\Microsoft\Windows\Recent\AutomaticDestinations")
    17. ' Alle Dateien im AutomaticDestinations-Verzeichnis löschen
    18. For Each file As String In Directory.GetFiles(automaticDestinationsPath)
    19. File.Delete(file)
    20. Next
    22. Console.WriteLine("Alle Einträge im Schnellzugriff wurden gelöscht.")
    23. Catch ex As Exception
    24. Console.WriteLine("Fehler beim Löschen der Einträge im Schnellzugriff: " & ex.Message)
    25. End Try
    26. End Sub
    27. End Module

    lg

    @haiflosse1 Wann bei Auftreten einer Exception willst Du Dir denn die Meldung in Zeile 24 durchlesen? ;)
    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!

    haiflosse1 schrieb:

    Was ist das Problem mit der Exception in Zeile 24?
    Das wirst du nie erfahren, da du nur ein paar Millisekunden Lesezeit hast, bevor das Programm sich schließt.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

Facebook
Telefonspende