主题：[求助]如何将照片存放到Attachments以外的其他文件夹中？

下边一段代码要示放入BeforeAttachFile中，结果存放在Attachments子目录下，我想把它存放到“d:\照片”中，如何修改？

假定表中有三列，分别是作者、拍摄日期、照片，希望向照片列添加文件的时候，自动根据作者和拍摄日期创建子目录来存放文件，例如作者张三在2010年度拍摄的照片存放在Attachments的子目录"张三\2010"下：

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