主题：增加行新建文件夹

datacolchanged事件

If e.DataCol.name = "档案_物司编号" Then   
    Dim path As String = ProjectPath & "物司文件\" & e.DataRow("档案_物司编号").Text & "\"
    If FileSys.DirectoryExists(path) = False
        filesys.CreateDirectory(path)
    End If  '只是添加文件夹
End If