Dim r As Row = tables("表C").current
Dim 身份证号码 As String = r("身份证号码")
Dim 编号 As String = r("人员编号")
msgbox(身份证号码 & "," & 编号)
For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹\")
msgbox(File)
Dim name As String = FileSys.GetName(file).split(".")(0)
msgbox(name)
If name.contains(身份证号码) Then
msgbox("开始替换：" & name.replace(身份证号码, 编号))
FileSys.RenameFile(file, name.replace(身份证号码, 编号))
msgbox("OK")
End If
Next
老师, 经测试
第1个对话框：msgbox(身份证号码 & "," & 编号) , 有显示对话框, 但无内容, 是空白的
第2个对话框：msgbox(File), 显示正常
第3个对话框：msgbox(name), 显示正常
第4个对话框：msgbox("开始替换：" & name.replace(身份证号码, 编号)), 显示错误
详细错误信息：String cannot be Of zero length.Parameter name: oldValue
加好友 
发短信
Post By：2024/6/8 13:56:00 [只看该作者]
