主题：如何读取所有文件的路径信息？

谢谢！

为什么对这表中数据进行动态存储时代码失效呢？

BeforeAttachFile事件

Dim dr As DataRow = e.DataRow
If dr.IsNull("影楼名称") Or Dr.IsNull("顾客名")Or Dr.IsNull("文件夹名")  Then
    MessageBox.Show("影楼名称,顾客名和文件夹名均不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("影楼名称") & "\" & dr("顾客名") & "\" & dr("产品类型")& "_" & dr("产品规格")
    e.FileName = dr("影楼名称") & dr("顾客名") &  dr("产品类型")& dr("产品规格")& ".jpg"

End If