Dim dr As DataRow = e.DataRowIf dr.IsNull("拍摄日期") Or Dr.IsNull("作者") ThenMessageBox.Show("拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)e.Cancel = TrueElsee.SubFolder = dr("作者") & "\" & dr("拍摄日期").YearEnd If
例如作者张三在2010年度拍摄的照片存放在Attachments的子目录"张三\2010"下:
我想存在ftp服务器里面的图片记载根目录下 这个要怎么修改 才能使用
求高手帮忙