XP下,能显示桌面,而win7下出错

[xilaianzxsc]

VFP9+SQL2000

在表单上,有一个按钮:导出

SELECT "P_C_X"
set default to (addbs(getenv('USERPROFILE')) + '桌面') &&将路径指向了桌面

在XP系统下,上述命令正常运行.能自动显示到桌面

而在Win7下,却出错. 出错为: 无效的路径

请各位老师,帮指导一下. 能否有一个在XP和win7下,都通用的显示桌面路径的方法

[都市夜猫]

? GetDesktopFolder()

Function GetDesktopFolder()
	Local cPath
	
	Declare Long SHGetSpecialFolderPath in shell32 Long, String @, Long, Long
	m.cPath = Replicate(Chr(0), 260)
	SHGetSpecialFolderPath(0, @ m.cPath, 0x0010, 0)
	m.cPath = Rtrim(m.cPath, Chr(0))
	Return m.cPath
EndFunc

[xilaianzxsc]

真是太佩服老师的水平了