Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ermitteln des Autostart Ordners
Autor: Alex
Datum: 25.07.02 13:19
Hi! Wenn du den Autostartordner ermitteln willst ist das das Richtige. Erstelle ein neues Module mit folgendem Code: Option Explicit Public Const CSIDL_ALTSTARTUP = &H1D Public Const CSIDL_APPDATA = &H1A Public Const CSIDL_BITBUCKET = &HA Public Const CSIDL_COMMON_ALTSTARTUP = &H1E Public Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19 Public Const CSIDL_COMMON_FAVORITES = &H1F Public Const CSIDL_COMMON_PROGRAMS = &H17 Public Const CSIDL_COMMON_STARTMENU = &H16 Public Const CSIDL_COMMON_STARTUP = &H18 Public Const CSIDL_CONTROLS = &H3 Public Const CSIDL_COOKIES = &H21 Public Const CSIDL_DESKTOP = &H0 Public Const CSIDL_DESKTOPDIRECTORY = &H10 Public Const CSIDL_DRIVES = &H11 Public Const CSIDL_FAVORITES = &H6 Public Const CSIDL_FONTS = &H14 Public Const CSIDL_HISTORY = &H22 Public Const CSIDL_INTERNET = &H1 Public Const CSIDL_INTERNET_CACHE = &H20 Public Const CSIDL_NETHOOD = &H13 Public Const CSIDL_NETWORK = &H12 Public Const CSIDL_PERSONAL = &H5 Public Const CSIDL_PRINTERS = &H4 Public Const CSIDL_PRINTHOOD = &H1B Public Const CSIDL_PROGRAMS = &H2 Public Const CSIDL_RECENT = &H8 Public Const CSIDL_SENDTO = &H9 Public Const CSIDL_STARTMENU = &HB Public Const CSIDL_STARTUP = &H7 Public Const CSIDL_TEMPLATES = &H15 ' Globale Variablen Public Type ShortItemId cb As Long abID As Byte End Type Public Type ITEMIDLIST mkid As ShortItemId End Type ' Windows API-Deklarationen Declare Function SHGetPathFromIDList Lib "shell32.dll" _ ( _ ByVal pidl As Long, _ ByVal pszPath As String _ ) As Long Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _ ( _ ByVal hwndOwner As Long, _ ByVal nFolder As Long, _ pidl As ITEMIDLIST _ ) As Long Function GetSpecialFolder(CSIDL As Long) As String Dim idlstr As Long Dim sPath As String Dim IDL As ITEMIDLIST Const MAX_LENGTH = 260 On Error GoTo Error_Handler ' Die IDL-Struktur mit dem Namen des angegebenen Ordners füllen idlstr = SHGetSpecialFolderLocation _ (0, CSIDL, IDL) If idlstr = 0 Then ' Pfad aus der IDL-Liste auslesen und den ' Ordnernamen mit einem abschließenden Schrägstrich ausgeben. sPath = Space$(MAX_LENGTH) idlstr = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) If idlstr Then GetSpecialFolder = Left$(sPath, InStr(sPath, Chr$(0)) _ - 1) & "\" End If End If Exit Function Error_Handler: Debug.Print "Fehler: " & Chr(13) & _ Err.Description, vbCritical Or vbOKOnly Exit Function End Function Dann kannst du mit folgendem Befehl den Ordner abrufen: GetSpecialFolder(CSIDL_COMMON_STARTUP) Mit dem Module kannst du auch andere Ordner abfragen.

Ermitteln des Autostart Ordners	46	thiste	25.07.02 13:01
Re: Ermitteln des Autostart Ordners	39	Alex	25.07.02 13:19
Re: Ermitteln des Autostart Ordners	32	thiste	25.07.02 13:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen