调试
Dim trv = e.Form.Controls("LayersTree1").basecontrol
Dim p As String = "\(\w+(?=\))\)"
Dim str = System.Text.RegularExpressions.Regex.Replace(trv.Selectednode.fullpath, p ,"")
str = e.Form.Controls("ComboBox1").text & str
msgbox(str)
'
If FileSys.DirectoryExists(str) = False Then
If MessageBox.Show("要新建这个 文件夹 吗?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
msgbox(1)
FileSys.CreateDirectory(str)
msgbox(2)
Dim Proc As New Process '定义一个新的Process
Proc.File = str
Proc.File = "D:\11_SF_SOFT\21_az_install\21_FA_fast\11_Tc\Totalcmd.exe"
Proc.Arguments = str '指定命令行参数
Proc.Start()
msgbox(3)
End If
Else
msgbox(4)
Dim Proc As New Process '定义一个新的Process
Proc.File = str
Proc.File = "D:\11_SF_SOFT\21_az_install\21_FA_fast\11_Tc\Totalcmd.exe"
Proc.Arguments = str '指定命令行参数
Proc.Start()
msgbox(5)
End If
msgbox(6)
Dim dr As DataRow = e.DataRow
'If dr.IsNull("盘符") Then
'msgbox("盘符 不能为空")
'e.cancel = True
'Else
Select Case e.DataCol.Name
Case "图片"
msgbox(dr("盘符") & dr("zfwl"))
e.SubFolder = dr("盘符") & dr("zfwl")
'取消了这列
End Select
'End If