主题：高手请进 动态文件夹建立

 datacolchanged 写入代码

Select Case e.DataCol.Name
    Case "产品"
        If FileSys.DirectoryExists(ProjectPath & e.DataRow("产品")) = False Then
            FileSys.CreateDirectory(ProjectPath & e.DataRow("产品") & "\Bom")
            FileSys.CreateDirectory(ProjectPath & e.DataRow("产品") & "\图纸")
            FileSys.CreateDirectory(ProjectPath & e.DataRow("产品") & "\效果图")
        End If
End Select

http://www.foxtable.com/help/topics/0331.htm