Dieser Tipp zeigt, wie Sie die Systemordner (Eigene Dateien, Desktop...) ermitteln können. Im Gegensatz zu einem unserer früheren Tipps wurde die Auflistung der möglichen Ordner um einiges erweitert. Nachfolgenden Code bitte in ein Modul "packen" Option Explicit ' Ordner-Auflistung Public Enum SpecialFolderIDs sfidDESKTOP = &H0 ' Desktop sfidNTERNET = &H1 ' Internet Explorer (icon on desktop) sfidPROGRAMS = &H2 ' Start Menu\Programs sfidCONTROLS = &H3 ' My Computer\Control Panel sfidPRINTERS = &H4 ' My Computer\Printers sfidPERSONAL = &H5 ' My Documents sfidFAVORITES = &H6 ' \Favorites sfidSTARTUP = &H7 ' StartMenu\Programs\Startup sfidRECENT = &H8 ' \Recent sfidSENDTO = &H9 ' \SendTo sfidBITBUCKET = &HA ' \Recycle Bin sfidSTARTMENU = &HB ' \StartMenu sfidDESKTOPDIRECTORY = &H10 ' name>\Desktop sfidDRIVERS = &H11 ' My Computer sfidNETWORK = &H12 ' Network Neighborhood sfidNETHOOD = &H13 ' \nethood sfidFONTS = &H14 ' windows\fonts sfidTEMPLATES = &H15 sfidCOMMON_STARTMENU = &H16 ' All Users\StartMenu sfidCOMMON_PROGRAMS = &H17 ' AllUsers\Programs sfidCOMMON_STARTUP = &H18 ' AllUsers\Startup sfidCOMMON_DESKTOPDIRECTORY = &H19 ' AllUsers\Desktop sfidAPPDATA = &H1A ' name>\Application Data sfidPRINTHOOD = &H1B ' name>\PrintHood sfidLOCAL_APPDATA = &H1C ' name>\Local Settings\Applicaiton Data (non roaming) sfidALTSTARTUP = &H1D ' non localizedstartup sfidCOMMON_ALTSTARTUP = &H1E ' non localizedCommon startup sfidCOMMON_FAVORITES = &H1F sfidINTERNET_CACHE = &H20 sfidCOOKIES = &H21 sfidHISTORY = &H22 sfidCOMMON_APPDATA = &H23 ' AllUsers\Application Data sfidWINDOWS = &H24 ' GetWindowsDirectory() sfidSYSTEM = &H25 ' GetSystemDirectory() sfidPROGRAM_FILES = &H26 ' C:\Program Files sfidMYPICTURES = &H27 ' C:\Program Files\My Pictures sfidPROFILE = &H28 ' USERPROFILE sfidSYSTEMX86 = &H29 ' x86 system directory on RISC sfidPROGRAM_FILESX86 = &H2A ' x86 C:\Program Files on RISC sfidPROGRAM_FILES_COMMON = &H2B ' C:\Program Files\Common sfidPROGRAM_FILES_COMMONX86 = &H2C ' x86 Program Files\Common on RISC sfidCOMMON_TEMPLATES = &H2D ' All Users\Templates sfidCOMMON_DOCUMENTS = &H2E ' All Users\Documents sfidCOMMON_ADMINTOOLS = &H2F ' All Users\Start Menu\Programs\Administrative Tools sfidADMINTOOLS = &H30 ' \Start Menu\Programs\Administrative Tools sfidProgramFiles = &H10000 sfidCommonFiles = &H10001 End Enum Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ( _ ByVal hwndOwner As Long, _ ByVal nFolder As Long, _ pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" ( _ ByVal pidl As Long, _ ByVal pszPath As String) As Long ' Standard Systemordner ermitteln Public Function GetSpecialFolder(CSIDL As _ SpecialFolderIDs) As String Dim lResult As Long Dim IDL As ITEMIDLIST Dim sPath As String lResult = SHGetSpecialFolderLocation(100, CSIDL, IDL) If lResult = 0 Then sPath = Space$(512) lResult = SHGetPathFromIDList(ByVal IDL.mkid.cb, _ ByVal sPath) GetSpecialFolder = Left$(sPath, InStr(sPath, _ Chr$(0)) - 1) End If End Function Beispiele ' zum Aufrufen kann z.B. folgendes verwendet werden: sPfadDesktop = GetSpecialFolder(sfidPERSONAL) Dieser Tipp wurde bereits 31.063 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access |
||||||||||||||||
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. |