以前做的一个ＶＦＰ小程序。把指定的数以 Excel 导出到电脑桌面。
但ＸＰ、win7\win10 以及不同品牌电脑的桌面路径不一致。
求如何在不同系统下，把表格正确的导出到桌面。
我是菜鸟，请老师指教。

快捷方式

路径不要在程序中做死。用GETDIR( )  函数 or PUTFILE( ) 函数由用户来指定。


Local nian,mf
gcXuan=Str(gnjb,1)
nian=Left(gcriqi,6)-gcjb&gcXuan


If Wexist('pfcjkfftable_s')
    Select ajkfftable&gcXuan
    Copy To &nian.茧款发放表 Type Xls Fields Except jiage*,支付*,*否
    mf='&nian.茧款发放表.xls'
    ml=Putfile('保存表格为:','&mf','xls')
    If Not Empty(ml)
        Copy File &mf To (ml)
    Endif
    Erase &mf
    Select ajkfftable&gcXuan
    Go Top
Endif

[此贴子已经被作者于2018-10-27 20:57编辑过]

    * 用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

不同版本的 window 操作系统，其桌面路径的变化大不好控制。用吹佬的是个好方法！

谢谢！学习啦。

Getenv("USERPROFILE")+'\desktop\'

好象不通用，XP测试：

收到的鲜花

• wangjiayu45 于 2018-11-07 07:51 送鲜花  1朵   附言：谢谢！

嗯，XP没试过，WIN7下面好用

IIF(DIRECTORY(Getenv("USERPROFILE")+'\desktop'),Getenv("USERPROFILE")+'\desktop',Getenv("USERPROFILE")+'\桌面')

“desktop 与 桌面”是否能涵盖所有情况？

[此贴子已经被作者于2018-10-29 09:32编辑过]

你统一释放到C：根目录下，不就放便了
唉！烦恼皆因强出头啊要。