Systemordner öffnen Mit diesem Tipp lassen sich Systemordner wie "Arbeitsplatz", "Papierkorb", "Netzwerkumgebung" usw. öffnen.
Autor:   Michael Schäffner	Bewertung:     [ Jetzt bewerten ]	Views:  10.397
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 26 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Haben Sie sich nicht auch schon gefragt, wie sich der Arbeitsplatz von Ihrem VB-Projekt heraus öffnen lässt?
Oder den Papierkorb? Oder andere Systemordner?

Mit diesem Tipp ist das ab sofort kein Problem mehr.

Public Function ShowMyComputer(WindowStyle As VbAppWinStyle)
  ' Arbeitsplatz öffnen
  Shell "explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", _
    WindowStyle
End Function

Public Function ShowRecycleBin(WindowStyle As VbAppWinStyle)
  ' Papierkorb öffnen
  Shell "explorer.exe ::{645FF040-5081-101B-9F08-00AA002F954E}", _
    WindowStyle
End Function

Public Function ShowControlPanel(WindowStyle As VbAppWinStyle)
  ' Systemsteuerung öffnen
  Shell "explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" & _
    "\::{21EC2020-3AEA-1069-A2DD-08002B30309D}", WindowStyle
End Function

Public Function ShowNetworkConnections(WindowStyle As VbAppWinStyle)
  ' Netzwerkverbindungen / DFÜ-Netzwerk öffnen
  Shell "explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" & _
    "\::{21EC2020-3AEA-1069-A2DD-08002B30309D}" & _
    "\::{7007acc7-3202-11d1-aad2-00805fc1270e}", WindowStyle
End Function

Public Function ShowNetworkPlaces(WindowStyle As VbAppWinStyle)
  ' Netzwerkumgebung öffnen
   Shell "explorer.exe ::{208D2C60-3AEA-1069-A2D7-08002B30309D}", _
     WindowStyle
End Function

Public Function ShowPrinters(WindowStyle As VbAppWinStyle)
  ' Drucker-Ordner öffnen
  Shell "explorer.exe ::{2227A280-3AEA-1069-A2DE-08002B30309D}", _
    WindowStyle
End Function

Public Function ShowDesktopExplorer(WindowStyle As VbAppWinStyle)
  ' Desktop-Explorer öffnen (NVIDIA-Treiber!!!)
  Shell "explorer.exe ::{1CDB2949-8F65-4355-8456-263E7C208A5D}", _
    WindowStyle
End Function