主题：将文件存储到指定文件夹中

dim r as datarow = e.datarow FileSys.CreateDirectory("D:\" & r("编码")) 以上代码是当表中增加一行时，自动在D盘创建以“编码”命名的文件夹， 我希望能：当增加了行，假如编码为’1001‘，此时D盘自然就创建了名为‘1001’的文件夹，这个文件夹只能为该编码的数据服务； 该表中，有一个“文件管理”的列，属性为多文件类型。我需要当我插入任何文件时，能自动存储在这个文件夹内， 请问如何处理。

狐爸你好： 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 ‘ 这个代码最终是以 “简称”\"2011“为文件名的，我希望是以20111228的形式命名。这应该如何做？ End If