以文本方式查看主题

-  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=98175)
--  作者：zoyong
--  发布时间：2017/3/25 13:43:00
--  帮忙修改FTP指定路径
有点蓝老师    帮忙修改指定路径    

在项目资料表里面有年份和项目名称列

Dim dlg As new  OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim xg As Integer = dlg.FileName.LastIndexOf(".")
    Dim hz As String = dlg.FileName.SubString(xg)
    Dim ftp As new FTPClient
    ftp.Host="192.168.1.18"
    ftp.Port = 21
    ftp.Account = "cgjftp"
    ftp.Password = "Xj671766"
    
    ftp.ChangeDir("\\工程管理")    \'进入UpLoadFile
    Dim fp As String = "\\工程管理"
    Dim ftpName As String = fp & "\\" & Format(Date.Now, "yyyyMMddHHmmss") & user.Name & hz
    If ftp.Upload(dlg.FileName,ftpname) = True Then
        Dim sz As Date = ftp.GetFileTime(ftpName)
        ftp.Rename(ftpName, fp & "\\" & Format(sz, "yyyyMMddHHmmss") & user.Name & hz)
        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

路径格式:
根目录 /年份目录 /项目名称

/工程管理/2014/项目名称  
/工程管理/2015/项目名称
/工程管理/2016/项目名称
/工程管理/2017/项目名称                   

动态获取年份和项目名称
--  作者：有点蓝
--  发布时间：2017/3/25 14:32:00
--  
请不要发重复的问题

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=98171
--  作者：zoyong
--  发布时间：2019/2/3 10:36:00
--  

Dim TbName As String = eForm.Name & "_table1"  \'定义表名
Dim hangshu As Integer = Tables(TbName).Rows.Count-1  \'判断行数是否为空
If hangshu < 0 Then
    Messagebox.show("图片为空,不能下载!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return ""
End If

\'获取图片
Dim r As Row = Tables(TbName).Current
If r IsNot Nothing Then
    Dim tpdz As String = r("图片地址")
    Dim wj As String = r("审批编号") & ".png"
   
    Network.DownloadFile(tpdz,"c:\\data\\temp.png","","",True,"1000",True)
    Dim ftp As New FTPClient
    ftp.host=vars("FTP_ip地址")
    ftp.Account =vars("FTP_账号")
    ftp.password =vars("FTP_密码")
    ftp.Port= vars("FTP_端口")
    ftp.RootDir = "\\图片文件\\" & Format(r("申请日期"),"yyyy") \'设置根目录
   
    \'创建目录
    If ftp.DirExists(ftp.RootDir) = False Then
        ftp.MakeDir(ftp.RootDir)
    End If
   
    Dim sc As String = "ftp://" & ftp.Account & ":" & ftp.password & "@" & ftp.host & wj
   
    ftp.ChangeDir("\\图片文件")    \'进入UpLoadFile
    Dim fp As String = "\\图片文件"
    Dim ftpName As String = fp & "\\" & Format(r("申请日期"),"yyyy") & wj \'保存路径
     ftp.Upload("c:\\data\\temp.png",ftpName) \'上传
    r("图片名称") = wj
    r.Save
   \' Network.UploadFile("c:\\data\\temp.png", sc)
   
End If

 

 

 

已解决

[此贴子已经被作者于2019/2/3 10:47:48编辑过]
--  作者：有点蓝
--  发布时间：2019/2/3 10:42:00
--  
哪一步没有效？

Dim ftpName As String = fp & "\\" & Format(r("申请日期"),"yyyy") & “\\” & wj \'保存路径