dim 身份证 as string = "xxxx"
dim 编号 as string = "zzzz"
For Each File As String In FileSys.GetFiles("F:\项目F6\项目F1")
dim name as string = FileSys.FileName(file)
if name.contains(身份证)
FileSys.RenameFile(file, name.replace(身份证,编号))
enf if
Next
老师，代码放在窗口按钮，出现提示错误，FileName不是....成员
错误代码：dim name as string = FileSys.FileName(file)
表中"照片列"的照片存在"照片文件夹"中, 原来以"身份证号码+.jpg"格式取的文件名, 现在在窗口按钮, 批量进行重命名, 现以"人员编号"列的人员编号替换原来的文件名
Dim 身份证号码 As String = "身份证号码"
Dim 编号 As String = "人员编号"
For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹\")
Dim name As String = FileSys.GetName(file) 'GetName返回文件名称，不含路径
If name.contains(身份证号码) Then
FileSys.RenameFile(file, name.replace(身份证号码, 编号))
End If
Next
老师，怎么这个代码没反应
遍历文件，获取文件名，去掉扩展名剩下身份证号码，到表格里查询这个身份证号码对应的"人员编号"，然后替换掉
Dim r as row = tabels("表A" ).current
Dim 身份证号码 As String = r（"身份证号码" ）
Dim 编号 As String = r（"人员编号" ）
For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\安置照片文件夹\")
Dim name As String = FileSys.GetName(file).split(".")(0)
If name.contains(身份证号码) Then
FileSys.RenameFile(file, name.replace(身份证号码, 编号))
End If
Next
老师，修改了一下，还是有问题，文件夹里文件未重命名
[此贴子已经被作者于2024/6/7 19:32:29编辑过]