照片重命名问题没解决！！！

白桦林　发表于：2015-07-20 10:37:09 　

复制

照片重命名附件

附件中有“photo”文件夹，其中有16张照片；数据库中表1中有16条记录。

希望实现

在窗体1中按“重命名”命令按钮后将照片按其名称的顺序重命名为指定的名

重命名规则：

“photo”文件夹中的照片已按"名称"排序 !!

现在希望在按窗体1中按“重命名”命令按钮后将排序为第一张照片的名称重命名为“表1”中[序号]为1的[号码] ，即6108260042，将排序为第二张照片的名称重命名为表1中[序号]为2的[号码]，即6108260045，以此类推。

在上次提问中煮江品茶老师给出了答案，但在后来的运行中出现的问题，而老师联系不上了。

Top

煮江品茶发表于：2015-07-20 10:54:45

将f.Name = rs!号码.Value & Mid(f.Name, InStrRev(f.Name, "."))改为：
if fso.FileExists(fld.Path & "\" & rs!号码.Value & Mid(f.Name, InStrRev(f.Name, ".")))=false then
f.Name = rs!号码.Value & Mid(f.Name, InStrRev(f.Name, "."))
end if

Top

白桦林发表于：2015-07-20 17:28:59

还是出现问题，请帮我找找原因

Top

白桦林发表于：2015-07-20 17:33:00

运行结果：表中的第10条记录的名称的照片未出现，第十张照片的名称为第十一条记录的、以此类推，第十六张照片的名称未更改

Top

煮江品茶发表于：2015-07-21 11:44:54

不可能吧？你是不是把修改的位置搞球错了。你把你修改的代码都贴上来。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]照片重命名问题没解决！！！