Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]当前层级目录树节点文件夹里面添加附件或照片


  共有5124人关注过本帖树形打印复制链接

主题：[求助]当前层级目录树节点文件夹里面添加附件或照片
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]当前层级目录树节点文件夹里面添加附件或照片  发帖心情 Post By：2022/4/25 13:32:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:aa.foxdb


求助
附件和图片列添加文件到盘符+目录树节点文件夹里面
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）Dim dr As DataRow = e.DataRowIf dr...  发帖心情 Post By：2022/4/25 15:42:00 [只看该作者]

蓝主，报错，帮忙看看

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
不支持给定路径的格式。

D:\24_SS_学习\1test\中国\广东 文件夹创建失败，上传图片失败

图片点击可在新窗口打开查看此主题相关图片如下：报错.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/4/25 15:48:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 15:52:00 [只看该作者]

先判断文件夹是否存在，不存在的先创建：http://www.foxtable.com/webhelp/topics/0331.htm

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）先判断文件夹是否存在，不存在的先创...  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）调试Dim trv  = e.Form.Control...  发帖心情 Post By：2022/4/25 16:22:00 [只看该作者]

蓝主，上楼代码，截图，辛苦看看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:调试截图.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 16:49:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）请上传实例测试  发帖心情 Post By：2022/4/25 16:50:00 [只看该作者]

辛苦，蓝主
Totalcmd.exe 这个绿色资源管理器要上传吗？26m上传失败

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:aa2.foxdb



[此贴子已经被作者于2022/4/25 16:53:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/25 17:19:00 [只看该作者]

e.SubFolder 不能指定完整路径，只能指定子目录，就是Attachments里的子目录名称。

要设置保存到不同的绝对路径，只能这样
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:aa2.zip
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 8 次数据查询