主题：动态存放文件 求助

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

例如作者张三在2010年度拍摄的照片存放在Attachments的子目录"张三\2010"下：

我想存在ftp服务器里面的图片记载根目录下  这个要怎么修改  才能使用 

求高手帮忙

这个自然知道的  

我是要实现上面的动态存储功能  要怎么写代码才能直接时间   上面在本地实现的功能    我想在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

这个不会结合使用呀   怎样才能能给出完整的代码吗     主要是不会代码结合