Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件保存到FTP服务器


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

主题：文件保存到FTP服务器
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		文件保存到FTP服务器  发帖心情 Post By：2017/12/8 21:36:00 [显示全部帖子]

If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
           
            path = Vars("IPM")
            
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
    End If

我想将截屏文件直接保存到FTP服务器  可以吗  代码怎样编辑
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/8 22:50:00 [显示全部帖子]

If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            
            path = Vars("IPM")     文件还是存到我的这个本地地址 没有上传到 FTP、
            
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
        Dim  ftp1 As  New  FtpClient
        ftp1.Host="196.128.143.28"
        ftp1.Account =  "foxuser"
        ftp1.Password =  "138238110"
        If  ftp1.Upload(path & "/" & f,f) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/8 23:21:00 [显示全部帖子]

提示失败

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


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/9 21:24:00 [显示全部帖子]

地址测试正常  就是提示上传失败

If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            
            path = Vars("IPM")   现在文件会存到我这个本地地址  不会上传到ftp
            
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
        Dim  ftp1 As  New  FtpClient
        ftp1.Host="47.95.20"
        ftp1.Account =  "foxftp"
        ftp1.Password =  "Yi8"
        If  ftp1.Upload(path & "/" & f,f) = True Then
            
            'If  ftp1.Upload(path & "\" & f, "/" & f) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If
[此贴子已经被作者于2017/12/9 21:25:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/11 13:02:00 [显示全部帖子]

If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            
            path = Vars("IPM")
            
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
        Dim  ftp1 As  New  FtpClient
        ftp1.Host="47.0"
        ftp1.Account =  "foftp"
        ftp1.Password =  "Y08"
        Dim path As String = ""
        Dim file As String = e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd")
        For Each s As String In file.split("\")
            path = path & "/" & s
            If ftp1.DirExists(path) = False Then
                ftp1.MakeDir(path)
            End If
        Next
        If  ftp1.Upload(path & "/" & f,f) = True Then
            
            'If  ftp1.Upload(path & "\" & f, "/" & f) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If

这样吗  就是会同时保存在本地和ftp上
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/13 9:03:00 [显示全部帖子]

---------------------------
错误
---------------------------
编译错误:当前块中已声明了局部变量“path”。



错误代码：Dim path As String = ""
---------------------------
确定   
---------------------------
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/13 11:42:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.10.26.1
错误所在事件：订单明细,DoubleClick
详细错误信息：
未能找到路径“D:\谢国华\1F\3.报价配图\2017-12-13\谢国华\1F\3.报价配图\2017-12-13\窗套半包-CP-201712-00002.png”的一部分。


需要结局网络和本地同步的问题  还是直接上传到ftp，本地路径不管他

If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            
            path ="D:\艾迪尔整体定制\TOCASA2017\2.项目文件"
            
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
        Dim  ftp1 As  New  FtpClient
        ftp1.Host="47.0"
        ftp1.Account =  "fo"
        ftp1.Password =  "Yi8"
        Dim path2 As String = ""
        Dim file As String = e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd")
        For Each s As String In file.split("\")
            path2 = path2 & "/" & s
            If ftp1.DirExists(path2) = False Then
                ftp1.MakeDir(path2)
            End If
        Next
        If  ftp1.Upload(path2 & "/" & f,f) = True Then
            
            'If  ftp1.Upload(path & "\" & f, "/" & f) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If
[此贴子已经被作者于2017/12/13 11:50:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2017/12/16 10:23:00 [显示全部帖子]

---------------------------
错误
---------------------------
编译错误:“e”是“Private”，因此它在此上下文中不可访问。



错误代码：If e.Col.name = "图片" Then
---------------------------
确定   
---------------------------




If e.Col.name = "图片" Then
    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized
    ClipBoard.Clear
    Dim proc As new Process
    proc.File = ApplicationPath & "/capture.exe"
    proc.WaitForClose = True
    proc.Start
    If ClipBoard.GetImage IsNot Nothing Then
        Dim f As String =  e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd") & "\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
        Dim path As String = e.Col.DataCol.DefaultFolder
        If path = "" Then
            
            path ="D:\艾迪尔整体定制\TOCASA2017\2.项目文件"
            msgbox(1)
        End If
        basemainform.WindowState = 2
        Dim dir As String = FileSys.GetParentPath(path & "/" & f)
        If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
        ClipBoard.GetImage.save(path & "/" & f)
        e.Row(e.Col.name) = f
        Dim  ftp1 As  New  FtpClient
'
        'ftp1.Host="ftp5
        'ftp1.Account =  " tocasa"
        'ftp1.Password =  "Yi
        '
        ftp1.Host="47.
        ftp1.Account =  "foxftp"
        ftp1.Password =  "Yi
        Dim path2 As String = ""
        
        Dim file As String = e.Row("客户名称") & "\"  & e.Row("楼层")& "\"  & "3.报价配图"  & "\" & Format( Date.Today,"yyyy-MM-dd")
        For Each s As String In file.split("\")
            path2 = path2 & "/" & s
            If ftp1.DirExists(path2) = False Then
                ftp1.MakeDir(path2)
            End If
        Next        
        If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品名") &"-" & e.Row("产品号") & ".png") = True Then           
            
            'If  ftp1.Upload(path & "\" & f, "/" & f) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
    e.cancel = True
    Tables("订单总表.订单明细").Current.Save() '保存文件的行
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 5 次数据查询