以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在FTP上传文件时自动根据列名进行修改文件名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117437)
--  作者：ZJZK2018
--  发布时间：2018/4/12 14:24:00
--  在FTP上传文件时自动根据列名进行修改文件名
老师：为什么下面这段代码修改不了？

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "图像上传" \'插入文件
        Dim path As String = "/JLZL2018/"
        If e.DataCol.FTPClient.DirExists(path) = False Then
            e.DataCol.FTPClient.MakeDir(path)
        End If
        path = "/JLZL2018/" & dr("项目编号") & dr("工程名称") & "/" & dr("单位工程") & "/" & dr("分部分项")
        If e.DataCol.FTPClient.DirExists(path) = False Then
            e.DataCol.FTPClient.MakeDir(path)
        End If
        e.DataCol.FTPClient.ChangeDir(path)
        If Forms("现场图像").Opened Then
            Dim fm As WinForm.FileManager = Forms("现场图像").Controls("FileManager1") \'改为自己建的窗口名称和控件名称
            fm.FTPclient.ChangeDir(path)
        End If

            e.SubFolder = path   \'指定存放文件的子目录
            
            If dr.IsNull("部位") = False AndAlso dr.IsNull("单位类别") = False Then
                e.FileName = GetPy(dr("单位类别").SubString(0,2),True) & "-" & dr("部位")  \'修改文件名
            Else
                MessageBox.Show("部位及单位类别不能为空!")
                e.Cancel = True
            End If
            
            Dim cnt As Integer = 1
            If FileSys.DirectoryExists(path)  Then
                For Each file As String In FileSys.GetFiles(path)
                    If file Like "*" & e.FileName.SubString(0,2) & "*" Then
                        cnt += 1
                    End If
                Next
            End If
            e.FileName &= "-" & Format(cnt, "00") & ".jpg"

End Select
--  作者：有点甜
--  发布时间：2018/4/12 14:56:00
--  

如果要控制ftp，必须这样做，参考

 

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

 

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

 

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

 
--  作者：有点甜
--  发布时间：2018/4/12 14:59:00
--  

如果要在添加的时候限制，上传功能必须自己做

 

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

 
--  作者：ZJZK2018
--  发布时间：2018/4/12 15:54:00
--  
有点甜老师：
看了一遍，还是搞不懂，有没有相关示例？
--  作者：有点甜
--  发布时间：2018/4/12 16:26:00
--  
以下是引用ZJZK2018在2018/4/12 15:54:00的发言：
有点甜老师：
看了一遍，还是搞不懂，有没有相关示例？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=115946&skin=0

 

 
--  作者：ZJZK2018
--  发布时间：2018/4/12 16:49:00
--  
有点甜老师：

我的需求：1、利用FOXTABLE文件管理.。2、在FTP上传文件时，自动根据列名当前行的内宅进行修改文件名
--  作者：有点甜
--  发布时间：2018/4/12 17:16:00
--  
不能使用foxtable自带的ftp上传工具，必须自己做一个，在beforeaddfile事件写代码，如5楼。