太好了,谢谢有点蓝老师。正确代码:If FileSys.DirectoryExists(ProjectPath & "自主就业")=False Then '如果目录不存在 FileSys.CreateDirectory(ProjectPath & "自主就业") '则建立
End If
Dim Index As Integer = CurrentTable.Current.DataRow.lines("退役电子档案").count + 1
Dim name As String = ProjectPath & "自主就业\" & CurrentTable.Current("退役年度") & "-" & CurrentTable.Current("姓名") & format(Date.now,"yyyyMMddHHmmssfffff") & Index & ".jpg"
If CurrentTable.Current.isnull("退役电子档案")
CurrentTable.Current("退役电子档案") = name
Else
CurrentTable.Current("退役电子档案") = CurrentTable.Current("退役电子档案") & vbcrlf & name
End If
'CurrentTable.Current("退役电子档案") = name
FileSys.CopyFile(e.FullPath, name,True)
FileSys.DeleteFile(e.FullPath,2,2) '则彻底删除之