以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]不支持给定路径的格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129427)

--  作者:天一生水
--  发布时间:2018/12/28 10:56:00
--  [求助]不支持给定路径的格式

代码如下:

DataTables("数据表").DataCols("裁判文书_文书上传").DefaultFolder = "http://142.16.2.32/裁判文书/" 

提示:不支持给定路径的格式

 

这样:\\\\142.16.2.32\\裁判文书\\

提示:找不到网络名

 

设置站点以后,还要设置共享文件夹吗?

[此贴子已经被作者于2018/12/28 10:58:49编辑过]

--  作者:有点甜
--  发布时间:2018/12/28 10:59:00
--  

1、搭建ftp服务器

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1

 

2、设置列属性

 

http://www.foxtable.com/webhelp/scr/1407.htm

 

http://www.foxtable.com/webhelp/scr/2040.htm

 


--  作者:天一生水
--  发布时间:2018/12/28 11:49:00
--  

老师好,ftp搭建成功了,上传文件也成功了。

但是上传文件时的BeforeAttachFile代码没有运行,是什么原因?

Remote代码写在哪里?


Select Case e.DataCol.Name
    Case "裁判文书_文书上传"
        e.Subfolder = e.DataRow("承办人")  \'将此文件存放在目录名为承办人名称的子目录中.
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(file)
            Dim count = Doc.Characters.Count
            app.ActiveWindow.Selection.WholeStory
            app.ActiveWindow.Selection.Copy
            \'Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            Dim str As String = ClipBoard.GetText
            \'msgbox(rng.Text)
           
            \'字数统计
            e.DataRow("裁判文书_全部字符") = str.Length
            e.DataRow("裁判文书_中文字符") = System.Text.RegularExpressions.Regex.Replace(str, "[^\\u4e00-\\u9fa5]", "").Length
    ......

[此贴子已经被作者于2018/12/28 11:52:10编辑过]

--  作者:有点甜
--  发布时间:2018/12/28 12:22:00
--  

互联网格式的文件列,不会触发BeforeAttachFile事件的。

 

你要换一种思路处理,如 http://www.foxtable.com/webhelp/scr/3258.htm