vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Dateisystem · Ordner & Verzeichnisse   |   VB-Versionen: VB4, VB5, VB613.11.03
Systemordner öffnen

Mit diesem Tipp lassen sich Systemordner wie "Arbeitsplatz", "Papierkorb", "Netzwerkumgebung" usw. öffnen.

Autor:   Michael SchäffnerBewertung:  Views:  17.881 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2019 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.