HERBERS Excel-Forum - die Beispiele

Thema: Anwenderverzeichnis auslesen

Home

Gruppe

API

Problem

Das Anwenderverzeichnis im Ordner Dokumente und Einstellungen soll ausgelesen werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: Modul1

Private Const S_OK = &H0
Private Const S_FALSE = &H1
Private Const E_INVALIDARG = &H80070057

Private Const CSIDL_FLAG_CREATE = &H8000&
Private Const CSIDL_PERSONAL = &H5&

Private Const SHGFP_TYPE_CURRENT = 0
Private Const SHGFP_TYPE_DEFAULT = 1
Private Const MAX_PATH = 260

Private Declare Function SHGetFolderPath Lib "shfolder" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Long, ByVal nFolder As Long, _
    ByVal hToken As Long, ByVal dwFlags As Long, _
    ByVal pszPath As String) As Long

Function GetUserDirectory()
   Dim RetVal As Long
   Dim iChar As Integer
   Dim sPath As String
   sPath = ""
   sPath = String(MAX_PATH, 0)
   RetVal = SHGetFolderPath(0, CSIDL_PERSONAL Or CSIDL_FLAG_CREATE, _
      0, SHGFP_TYPE_CURRENT, sPath)
   Select Case RetVal
      Case S_OK
         sPath = Left(sPath, InStr(1, sPath, Chr(0)) - 1)
      Case S_FALSE, E_INVALIDARG
         sPath = "Nicht gefunden!"
   End Select
   For iChar = Len(sPath) To 1 Step -1
      If Mid(sPath, iChar, 1) = "\" Then Exit For
      iChar = iChar - 1
   Next iChar
   sPath = Left(sPath, iChar - 1)
   GetUserDirectory = sPath
End Function

Beiträge aus dem Excel-Forum zu den Themen API und System

Excel to Word Kapitel VBA Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht Googel Maps API in Excel VBA einfügen
Private Const CheckCell_1 = "System!AI9" Problem mit dem Rang-System
Berechnung vom Endkapital Systemp-Variable benötigt
Netzwerkpfad per FileSystemObject wechseln GetSystemMetrics
API? - xl-Parameter aus Long-Wert bestimmen Berechnung Kapitalanlage
System Variablen mit Excel auslesen Telefonnummer auslesen per TAPI
Schichtsystem im Kalender Läuft RSAPI.DLL mit WIN2000 und XP?
Auslesen Systemdaten, Zellschutz und Counter Systemauslastung mitloggen
JAVA API mit VBA verwenden Kurzzeitig steuerung des Systems übernehmen
Daten aus einer Tabelle auslesen-Koordinatensystem Systemunabhängige Email an mehrere Empfänger
fs - system (filesearch) Abfrage, ob Outlook oder Lotus Notes Mailsystem
Schichtsystem Systemvariable - Benutzername auslesen
PageSetup - absolute Systemauslastung Windows Systeminfo
Papierformat speichern FileSystemObject Frage
Kassensystem mit excel Excel -mangelnde Systemresourcen
Kleines Lager/Kassensystem verschiedene Papierquele beim Drucken
Entnahme mit Kapitalverzehr Berechnung Endkapital / Zinsen
Mehrfachberechnung linearesGleichungssystem-Solver Druck auf Papier und PDF mit und ohne Logo
Frage zur RSAPI.DLL Kombination Seitenumbruch Papierformat Anpassen
Koordinatensystem mit 4 Quadranten Kein Download wenn Betriebssystem Vista ist
Hilfe bei der Fehlersuche (API) Frage zu XKAPITALWERT
API-Zugriff Endkapital? bei unterschiedlichen Zahlungen
Handelssystem API für Tastaturpuffer auslesen
API für Tastaturpuffer auslesen Koordinatensystem definieren