以下是引用hbue在2019/5/26 11:23:00的发言：谢谢老师细心指导，代码已运行成功！还有一问题请老师帮忙写个代码，就是批量将“相片名”提取后，将提取“相片名”放入表中一列。
还请老师推荐一本针对FOXTABLE编写代码的基本语言的书，谢谢！
[此贴子已经被作者于2019/5/26 11:24:10编辑过]
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")
fdr("第十列") = fdr("第二列") & ".jpg"
End If
Next
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=128285
加好友 
发短信
Post By：2019/5/26 11:23:00 [只看该作者]
