怎么拷贝一个文件到桌面

如何拷贝一个文件到桌面
vfp 9.0

copy file aaa.dbf to 桌面\aaa.dbf

问:由于各台机,桌面的路径是不同的,如何设置"桌面"的路径,让上述命令,在每台机上,都能运行?

[解决办法]

VB code

loShell=Createobject('wscript.shell')lcMyPath=loShell.SpecialFolders('AllUsersDesktop')    && 所有用户*lcMyPath=loShell.SpecialFolders('Desktop')            && 当前用户Copy File aaa.Dbf To '&lcMyPath.\aaa.Dbf'
[解决办法]
如果确定都是中文版，可以直接取 Windows 的环境变量：
messagebox( addbs(getenv('USERPROFILE'))+'桌面' )

否则可以用 shell api 来取