原来在局域网环境下在
BeforeAttachFile中代码如下设置的代码均能进行自动根据作者和拍摄日期创建子目录来存放文件,也能能自动根据身份证号码来重命名此文件,但换为ftp时却不能?代码不起作用
Dim dr As
DataRow = e.DataRow
If dr.IsNull("拍摄日期") Or Dr.IsNull("作者") Then
MessageBox.Show("拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel =
True
Else
e.SubFolder = dr("作者") & "\" & dr("拍摄日期").Year
End
If
Dim dr As
DataRow = e.DataRow
If dr.IsNull("身份证号码") Then
MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.FileName = dr("身份证号码") & ".jpg"
End
If