.lib "shell32.dll"
SHGetSpecialFolderPath%(hwndOwner$,lpszPath*,nFolder%,fCreate%):"SHGetSpecialFolderPathA"

Const CSIDL_DESKTOP = 0
Const CSIDL_INTERNET = 1
Const CSIDL_PROGRAMS = 2
Const CSIDL_CONTROLS = 3
Const CSIDL_PRINTERS = 4
Const CSIDL_PERSONAL = 5
Const CSIDL_FAVORITES = 6
Const CSIDL_STARTUP = 7
Const CSIDL_RECENT = 8
Const CSIDL_SENDTO = 9
Const CSIDL_BITBUCKET = 16
Const CSIDL_STARTMENU = 17
Const CSIDL_NETWORK = 18
Const CSIDL_NETHOOD = 19
Const CSIDL_FONTS = 20
Const CSIDL_TEMPLATES = 21
Const CSIDL_COMMON_STARTMENU = 22
Const CSIDL_COMMON_PROGRAMS = 23
Const CSIDL_COMMON_STARTUP = 24
Const CSIDL_COMMON_DESKTOPDIRECTORY = 25
Const CSIDL_APPDATA = 26
Const CSIDL_PRINTHOOD = 27
Const CSIDL_LOCAL_APPDATA = 28
Const CSIDL_ALTSTARTUP = 29
Const CSIDL_COMMON_ALTSTARTUP = 30
Const CSIDL_COMMON_FAVORITES = 31
Const CSIDL_INTERNET_CACHE = 32
Const CSIDL_COOKIES = 33
Const CSIDL_HISTORY = 34
Const CSIDL_COMMON_APPDATA = 35
Const CSIDL_WINDOWS = 36
Const CSIDL_SYSTEM = 37
Const CSIDL_PROGRAM_FILES = 38
Const CSIDL_MYPICTURES = 39
Const CSIDL_PROFILE = 40
Const CSIDL_SYSTEMX86 = 41
Const CSIDL_PROGRAM_FILESX86 = 42
Const CSIDL_PROGRAM_FILES_COMMON = 43
Const CSIDL_PROGRAM_FILES_COMMONX86 = 44
Const CSIDL_COMMON_TEMPLATES = 45
Const CSIDL_COMMON_DOCUMENTS = 46
Const CSIDL_COMMON_ADMINTOOLS = 47
Const CSIDL_ADMINTOOLS = 48
Const CSIDL_CONNECTIONS = 49

Function GetBankString$(bank, size)
For i=0 To size-1
wert$=wert$ + PeekByte(bank, i)
Next
While Len(wert$)<>0
If Int(Left$(wert$, 1))>2 Then
antwort$=antwort$ + Chr$(Int(Left$(wert$, 2)))
wert$=Mid$(wert$, 3)
Else
antwort$=antwort$ + Chr$(Int(Left$(wert$, 3)))
wert$=Mid$(wert$, 4)
End If
Wend
FreeBank bank
Return Trim$(antwort$)
End Function

folderbank=CreateBank(1400)
SHGetSpecialFolderPath(0, folderbank, CSIDL_SYSTEMX86 , 0)
Print getbankstring$(folderbank, 1400)