2,723
社区成员
发帖
与我相关
我的任务
分享
lcPath = Getenv("ALLUSERSPROFILE") + '桌面\' && 中文系统
* lcPath = Getenv("ALLUSERSPROFILE") + 'DeskTop\' && 英文系统
Copy File aaa.dbf To (lcPath + 'aaa.dbf')
loShell=Createobject('wscript.shell')
lcMyPath=loShell.SpecialFolders('AllUsersDesktop') && 所有用户
*lcMyPath=loShell.SpecialFolders('Desktop') && 当前用户
Copy File aaa.Dbf To '&lcMyPath.\aaa.Dbf'