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

请问一下如何用FOXTABLE实现相片批量改名

参考

 

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

 

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

 

谢谢指导，但操作没有成功。我手里现在有一批学生的登记照片，登记照片是用学生的“考生号”命名的JPG格式，现想将登记照片用学生的“学号”批量更名，请教专家指导！

贴出您写的具体代码说明

在命令窗口不知道如何用以下命令实现相片批量更名，谢谢指导

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

谢谢老师写的代码，但运行没有成功，现将运行截图发过来，帮我看一下是什么问题，谢谢！

 

贴出你所写代码

 

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

运行截图
此主题相关图片如下：qq图片20190524155529.png


此主题相关图片如下：qq图片20190524155548.png

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