标题:求教,将图片另存到桌面遇到的问题
取消只看楼主
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
结帖率:76.47%
已结贴  问题点数:20 回复次数:8 
求教,将图片另存到桌面遇到的问题
感谢吹版,用他的代码表单区域截图成功,但在过程中将图片另存到桌面时遇到一个问题,半天无法解决,特向高人求教。

弹出另存为对话框后:
一、直接点击确定,则图片在默认文件夹下保存成功,没有任何问题。
二、选择桌面,修改文件名,点击确定,图片保存在桌面上,也没有任何问题。
三、选择桌面,不修改文件名,点击确定,图片不能正常保存。
四、先修改文件名,再选择桌面,点击确定,图片也不能正常保存。

请教如何解决问题三、四,或者换成另外的什么办法,目的就是把图片保存到桌面上。

aaa.rar (2.63 KB)


[此贴子已经被作者于2023-2-10 22:32编辑过]

搜索更多相关主题的帖子: 保存 桌面 点击 另存 图片 
2023-02-10 22:28
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用吹水佬在2023-2-10 22:46:58的发言:

不用默认路径,用想要的路径。

想要的路径就是桌面啊。
2023-02-11 06:47
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用pvm2000在2023-2-11 00:55:01的发言:

将这许多图片保存到桌面,不是个好习惯

这是对的。我只是一两张图片临时存一下,拉到微信发出后就删除。事实上,我的桌面很少有超过10个图标的时候。
2023-02-11 06:52
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用nbwww在2023-2-11 08:02:45的发言:

那又何必纠结于此  不如直接唤出微信  查找接收人 发送文件了事    谨慎一点  最后一个回车手动来按

这个也行,但还是想先解决这问题。
2023-02-11 09:09
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用laowan001在2023-2-11 11:07:52的发言:

VFP使用中间带空格的路径名时会出现问题,桌面的路径名就是这样

请问有没有办法解决
2023-02-11 16:22
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用igaoyuan在2023-2-11 16:47:33的发言:

我在win10x64下运行附件里的表单,操作三和四都可以正常保存,没有问题

谢谢测试。你的另存为对话框一打开,查找范围那里默认就是桌面,其实是操作一,这没问题的。
其实后来我还发现,出问题是在选择桌面时,按的是左边那排里的桌面,如果是在计算机里找到的桌面,则也不会出问题。

[此贴子已经被作者于2023-2-11 22:21编辑过]

2023-02-11 22:20
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用igaoyuan在2023-2-11 22:33:35的发言:



默认是上一次退出时访问路径。
实际上是依赖getfile这个函数返回你的路径而已,可能是碰上路径字串里有空格、中文等等出现解析不完整,才会无法保存。

理论上按左边的桌面和计算机里的桌面路径,返回串值是一样的,你可以用这个 ? getfile('jpg','search my desktop') 命令测试一下

谢谢,试了半天,问题依旧,会不会是我的win11有问题(虽然我已将vfp改成兼容win7了),我再找台win7的试试。
使用 ?getfile('jpg','search my desktop')来查看,运行结果与提出的问题一样,仿照操作三、四来做,也出了同样的问题。
2023-02-11 22:46
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用sam_jiang在2023-2-12 18:57:14的发言:

我在我的电脑上运行了这个程序,发现没有楼主所说的问题。

另外,getfile函数不能填写默认文件名,你可以试试putfile函数!

usage:
PUTFILE([cCustomText] [, cFileName] [, cFileExtensions])


换成putfile后所有问题迎刃而解。非常非常感谢指导。
2023-02-13 11:09
丁春秋yxp
Rank: 4
等 级:贵宾
威 望:10
帖 子:239
专家分:287
注 册:2017-10-31
得分:0 
以下是引用zhken在2023-2-12 20:56:11的发言:

可以试试 改变路径,这样子
wsh = Createobject("WSCRIPT.SHELL")
ML_=wsh.SpecialFolders("desktop")
ML_1=sys(5)+sys(2003)+'\'
cd '&ML_'
file_temp=getfile('txt')
cd &ML_1 &&返回当前目录


得到本站人员帮助,getfile()改成putfile()后问题解决了,谢谢。

[此贴子已经被作者于2023-2-13 11:14编辑过]

2023-02-13 11:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-511255-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.061061 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved