Anwendungs-/ System- und spezielle Verzeichnisse Mit diesen Einzeilern ermitteln Sie das aktuelle Anwendungsverzeichnis, das Windowsverzeichnis und spezielle Systemverzeichnisse
Autor:   Dieter Otter	Bewertung:	Views:  23.543
www.tools4vb.de	System:  WinNT, Win2k, Win8, Win10, Win11	Beispielprojekt auf CD

Heute möchten wir Ihnen ein paar "Einzeiler" vorstellen, mit denen sich das Programm-/Anwendungsverzeichnis, Windowsverzeichnis und spezielle Systemverzeichnisse ermitteln lassen.

' aktuelles Anwendungsverzeichnis, aus dem die EXE-Datei gestartet wurde
Dim sPath As String = New IO.FileInfo(Application.ExecutablePath).DirectoryName

' System-Verzeichnis
Dim sPath As String = Environment.SystemDirectory

' Windows-Verzeichnis
Dim sPath As String = New IO.DirectoryInfo(Environment.SystemDirectory).Parent.FullName

' Verzeichnis für temporäre Dateien
Dim sPath As String = IO.Path.GetTempPath()

Weitere spezielle Verzeichnisse
Über die Environment.GetFolderPath-Eigenschaft lassen sich die wichtigsten Systemverzeichnisse ermitteln. Als Parameter wird eine der "SpecialFolder"-Konstanten erwartet.

Nachfolgend ein paar Beispiele:

' Anwendungsdaten
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

' Programme\Gemeinsame Dateien
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)

' AutoStart
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)

' Desktop
Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

Copyright ©2000-2024 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.