Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB4, VB5, VB6 | 13.11.03 |
Systemordner öffnen Mit diesem Tipp lassen sich Systemordner wie "Arbeitsplatz", "Papierkorb", "Netzwerkumgebung" usw. öffnen. | ||
Autor: Michael Schäffner | Bewertung: | Views: 20.270 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | 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