主题：[求助]如何生成序列编号+单位名称？

在添加照片列“信息库备案表”的过程中，如下代码，我想在生成以“单位名称”为文件夹名的文件夹名前加上编号，如单位名称为“政府办”，再它的前边自动加上“01”，文件夹名称变成“01政府办”，第二添加的“发改委”，自动在它的前边加上“02”，文件夹名称变成“02发改委”。下列代码如何更改？谢谢

Select Case e.DataCol.Name

    Case "信息库备案表" '如果在图片列插入文件

        e.Subfolder = e.DataCol.name & "\" & e.DataRow("单位名称")  '将此文件存放在目录名为部门名称的子目录中.

End Select

Select Case e.DataCol.Name

    Case "信息库备案表" '如果在图片列插入文件

         dim dw as string 

         select case e.DataRow("单位名称") 

              case "政府办"

                   dw = "01政府办"

              Case "发改委"

                   dw = "02发改委"

         end select

        e.Subfolder = e.DataCol.name & "\" & dw '将此文件存放在目录名为部门名称的子目录中.

End Select