- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [原创]请问一下如何用FOXTABLE实现相片批量改名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135280)
-- 发布时间：2019/5/22 16:22:00
-- [原创]请问一下如何用FOXTABLE实现相片批量改名
请问一下如何用FOXTABLE实现相片批量改名
-- 发布时间：2019/5/22 16:39:00
--
参考
http://www.foxtable.com/webhelp/scr/0340.htm
http://www.foxtable.com/webhelp/scr/0341.htm
-- 发布时间：2019/5/23 10:13:00
--
谢谢指导，但操作没有成功。我手里现在有一批学生的登记照片，登记照片是用学生的“考生号”命名的JPG格式，现想将登记照片用学生的“学号”批量更名，请教专家指导！
-- 发布时间：2019/5/23 11:34:00
--
贴出您写的具体代码说明
-- 发布时间：2019/5/23 21:36:00
--
在命令窗口不知道如何用以下命令实现相片批量更名，谢谢指导
FileSys.RenameFile("c:\\data\\Test.txt", "SecondTest.txt")
将文件“c:\\data\\Test.txt”重命名为“SecondTest.txt”
[此贴子已经被作者于2019/5/23 21:37:14编辑过]
-- 发布时间：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
-- 发布时间：2019/5/24 16:05:00
--
谢谢老师写的代码，但运行没有成功，现将运行截图发过来，帮我看一下是什么问题，谢谢！
-- 发布时间：2019/5/24 16:09:00
--
贴出你所写代码
不然，请把你的项目和你的图片文件打包发上来测试
-- 发布时间：2019/5/24 16:09:00
--
运行截图
此主题相关图片如下：qq图片20190524155529.png
此主题相关图片如下：qq图片20190524155548.png
-- 发布时间：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