Anwendugsdatenverzeichnis ermitteln Mit diesen Funktionen ermitteln Sie das allgemeine Anwendungsdatenverzeichnis sowie das Standard-Anwendungsdatenverzeichnis des Benutzers
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  2.056
www.tools4vb.de	System:  Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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