[原创]请问一下如何用FOXTABLE实现相片批量改名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]请问一下如何用FOXTABLE实现相片批量改名

共有2794人关注过本帖树形打印复制链接主题：[原创]请问一下如何用FOXTABLE实现相片批量改名

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/22 16:39:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/0340.htm

http://www.foxtable.com/webhelp/scr/0341.htm

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/24 10:17:00 [显示全部帖子]

For Each file As String In FileSys.GetFiles("d:\")
    Dim kh = FileSys.GetName(file).Replace(".jpg", "")
    msgbox(kh)
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & kh & "'")
    If fdr Is Nothing Then
        msgbox("没找到")
    Else
        FileSys.RenameFile(file, fdr("第二列") & ".jpg")
    End If
Next

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/24 16:09:00 [显示全部帖子]

贴出你所写代码

不然，请把你的项目和你的图片文件打包发上来测试

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/24 16:17:00 [显示全部帖子]

For Each file As String In FileSys.GetFiles("d:\")
    Dim kh = FileSys.GetName(file).Replace(".JPEG", "")
    msgbox(kh)
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & kh & "'")
    If fdr Is Nothing Then
        msgbox("没找到")
    Else
        FileSys.RenameFile(file, fdr("第二列") & ".jpg")
    End If
Next

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/26 16:06:00 [显示全部帖子]

以下是引用hbue在2019/5/26 11:23:00的发言：
谢谢老师细心指导，代码已运行成功！还有一问题请老师帮忙写个代码，就是批量将“相片名”提取后，将提取“相片名”放入表中一列。

还请老师推荐一本针对FOXTABLE编写代码的基本语言的书，谢谢！

[此贴子已经被作者于2019/5/26 11:24:10编辑过]

fdr("第十列") = fdr("第二列") & ".jpg"
End If
Next

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=128285

下一主题 >> << 上一主题

主题：[原创]请问一下如何用FOXTABLE实现相片批量改名