Dim ml As String = Tables("设置").Current("默认目录")
Dim dr As DataRow = e.DataRow
Dim dm As String = trim(dr("简码"))
Dim cpph As String = trim(dr("产品批号"))
If e.DataCol.name = "正面" Then
Dim pth As String = ml & e.DataRow("正面")
FileSys.RenameFile(pth,dm & cpph &".jpg")
Else
If e.DataCol.name = "反面" Then
Dim pth As String = ml & e.DataRow("反面")
FileSys.RenameFile(pth,dm & cpph &"-1.jpg")
End If
End If
现在的问题是文件是复制到制定目录了，但改不了名，报错：给定的文件路径以目录分隔符字符结尾。参数名: file
加好友 
发短信
Post By：2017/9/14 15:09:00 [只看该作者]
