AW: Autostart Verzeichnis von Windows finden
11.02.2022 08:59:12
Windows
Hallo,
hilft dir das:
0 Desktop C:\Users\Public\Desktop
1 Start Menu C:\ProgramData\Microsoft\Windows\Start Menu
2 Programs C:\ProgramData\Microsoft\Windows\Start Menu\Programs
3 StartUp C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
4 Desktop C:\Users\Office\Desktop
5 Roaming C:\Users\Office\AppData\Roaming
6 Printer Shortcuts C:\Users\Office\AppData\Roaming\Microsoft\Windows\Printer Shortcuts
7 Templates C:\Users\Office\AppData\Roaming\Microsoft\Windows\Templates
8 Fonts C:\Windows\Fonts
9 Network Shortcuts C:\Users\Office\AppData\Roaming\Microsoft\Windows\Network Shortcuts
10 Desktop C:\Users\Office\Desktop
11 Start Menu C:\Users\Office\AppData\Roaming\Microsoft\Windows\Start Menu
12 SendTo C:\Users\Office\AppData\Roaming\Microsoft\Windows\SendTo
13 Recent C:\Users\Office\AppData\Roaming\Microsoft\Windows\Recent
14 Startup C:\Users\Office\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
15 Favorites C:\Users\Office\Favorites
16 Documents C:\Users\Office\Documents
17 Programs C:\Users\Office\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
https://www.rondebruin.nl/win/s3/win027.htm
Sub GetSpecialFolder()
'Special folders are : AllUsersDesktop, AllUsersStartMenu
'AllUsersPrograms, AllUsersStartup, Desktop, Favorites
'Fonts, MyDocuments, NetHood, PrintHood, Programs, Recent
'SendTo, StartMenu, Startup, Templates
'Get Favorites folder and open it
Dim WshShell As Object
Dim SpecialPath As String
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders("Favorites")
MsgBox SpecialPath
'Open folder in Explorer
Shell "explorer.exe " & SpecialPath, vbNormalFocus
End Sub
mfg