主题：局域网内想把所有文件直接上传到服务器上，怎么实现？

示例一

例如表中有部门和图片两列，希望不同部门的图片，放在各自的目录中，为此可在BeforeAttachFile事件加上下面的代码：

Select Case e.DataCol.Name
    Case "图片" '如果在图片列插入文件
        e.Subfolder = e.DataRow("部门")  '将此文件存放在目录名为部门名称的子目录中.
End Select

这个只能存到按照列名的文件夹下，想在部门下面再按照不同编号新建个文件夹存储，每个编号新建个文件夹，是按照下面的语句改吗？怎么改呢

示例二

例如希望在添加文件的时候，根据文件的后缀名自动添加到不同的子目录，例如BMP文件自动添加到BMP子目录，DOC文件添加到DOC子目录。
BeforeAttachFile事件只需一行代码即可完成此任务：

e.SubFolder = e.FileName.SubString(e.FileName.LastIndexof(".") + 1)