* 用API SHGetSpecialFolderPath函数
DECLARE LONG SHGetSpecialFolderPath IN Shell32 LONG, STRING@, LONG, LONG
cPath = SPACE(260)
SHGetSpecialFolderPath(0, @cPath, 0x10, 0)
cPath = LEFT(cPath, AT(0h00,cPath)-1)
? cPath
* 用WshShell对象
oShell = CREATEOBJECT("WScript.Shell")
cPath = oShell.SpecialFolders("Desktop")
? cPath