- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]当前层级目录树节点文件夹里面添加附件或照片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176742)
-- 发布时间：2022/4/25 13:32:00
-- [求助]当前层级目录树节点文件夹里面添加附件或照片
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:aa.foxdb |
求助
附件和图片列添加文件到盘符+目录树节点文件夹里面
-- 发布时间：2022/4/25 13:49:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull("盘符") Then
msgbox("盘符 不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "图片"
e.SubFolder = dr("盘符") & dr("zfwl")
\'取消了这列
End Select
End If
-- 发布时间：2022/4/25 15:42:00
-- 回复：（有点蓝）Dim dr As DataRow = e.DataRowIf dr...
蓝主，报错，帮忙看看
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
不支持给定路径的格式。
D:\\24_SS_学习\\1test\\中国\\广东 文件夹创建失败，上传图片失败
此主题相关图片如下：报错.png
[此贴子已经被作者于2022/4/25 15:48:16编辑过]
-- 发布时间：2022/4/25 15:52:00
--
先判断文件夹是否存在，不存在的先创建：http://www.foxtable.com/webhelp/topics/0331.htm
-- 发布时间：2022/4/25 16:06:00
-- 回复：（有点蓝）先判断文件夹是否存在，不存在的先创...
文件夹已经存在了，还是上面的报错。
加入判断文件是否存在了，也还是报错
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
FileSys.CreateDirectory(str)
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()
End If
Else
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()
End If
Dim dr As DataRow = e.DataRow
\'If dr.IsNull("盘符") Then
\'msgbox("盘符 不能为空")
\'e.cancel = True
\'Else
Select Case e.DataCol.Name
Case "图片"
e.SubFolder = dr("盘符") & dr("zfwl")
\'取消了这列
End Select
\'End If
-- 发布时间：2022/4/25 16:15:00
--
调试
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
-- 发布时间：2022/4/25 16:22:00
-- 回复：（有点蓝）调试Dim trv = e.Form.Control...
蓝主，上楼代码，截图，辛苦看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:调试截图.zip |
-- 发布时间：2022/4/25 16:49:00
--
请上传实例测试
-- 发布时间：2022/4/25 16:50:00
-- 回复：（有点蓝）请上传实例测试
辛苦，蓝主
Totalcmd.exe 这个绿色资源管理器要上传吗？26m上传失败
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:aa2.foxdb |
[此贴子已经被作者于2022/4/25 16:53:17编辑过]
-- 发布时间：2022/4/25 17:19:00
--
e.SubFolder 不能指定完整路径，只能指定子目录，就是Attachments里的子目录名称。
要设置保存到不同的绝对路径，只能这样
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:aa2.zip |