Get all drive names

BlitzMax Forums/BlitzMax Beginners Area/Get all drive names

Azathoth
 #1
This code shows how to find the fonts folder on Windows
Import "-lshell32"

Const CSIDL_FONTS=$14

Extern "Win32"
	Function SHGetFolderPathA:Int(hwndOwner:Byte Ptr, nFolder:Int, hToken:Byte Ptr, dwFlags:Int, pszPath:Byte Ptr)
EndExtern

Local cString:Byte[255]

If SHGetFolderPathA(Null, CSIDL_FONTS, Null, $0000, cString)=0
	Print String.FromCString(cString)
EndIf