Rubrik: Dateisystem · Ordner & Verzeichnisse | VB-Versionen: VB6 | 30.05.11 |
Anwendugsdatenverzeichnis ermitteln Mit diesen Funktionen ermitteln Sie das allgemeine Anwendungsdatenverzeichnis sowie das Standard-Anwendungsdatenverzeichnis des Benutzers | ||
Autor: Dieter Otter | Bewertung: | Views: 9.350 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
In Ergänzung zu unserem letzten Tipp Anwendugsdatenverzeichnis des Users ermitteln, stellen wir nachfolgend noch zwei Funktionen vor, mit denen sich das allgemeine Anwendungsdatenverzeichnis, woei das Standard-Anwendungsdatenverzeichnis des Benutzers ermitteln lässt.
Option Explicit ' benötigte API-Deklarationen Private Declare Function GetDefaultUserProfileDirectory Lib "userenv.dll" _ Alias "GetDefaultUserProfileDirectoryA" ( _ ByVal lpProfileDir As String, _ lpcchSize As Long) As Boolean Private Declare Function GetProfilesDirectory Lib "userenv.dll" _ Alias "GetProfilesDirectoryA" ( _ ByVal lpProfileDir As String, _ lpcchSize As Long) As Boolean
' Ermittelt das allgemeine Anwendungsdatenverzeichnis Public Function AppData() As String Dim sBuffer As String sBuffer = String$(255, 0) GetProfilesDirectory sBuffer, 255 AppData = TrimNull(sBuffer) End Function
' Ermittelt das Standard-Anwendungsdatenverzeichnis Public Function DefaultAppData() As String Dim sBuffer As String sBuffer = String$(255, 0) GetDefaultUserProfileDirectory sBuffer, 255 DefaultAppData = TrimNull(sBuffer) End Function
' Hilfsfunktion Private Function TrimNull(ByVal sBuffer As String) As String Dim nPos As Long nPos = InStr(sBuffer, Chr$(0)) If nPos > 0 Then TrimNull = Left$(sBuffer, nPos - 1) Else TrimNull = sBuffer End If End Function