以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Ftp动态路径建文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98582)
--  作者：zoyong
--  发布时间：2017/4/1 13:47:00
--  Ftp动态路径建文件夹
帮忙修改一下路径 
路径格式：   \\工程管理\\年份\\档案编号    
其中“年份”和“档案编号”在“在建项目”表中获取

Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.8"
ftp1.Account = "XXXX"
ftp1.Password = "XXXX"
ftp1.Changedir("\\工程管理") 
ftp1.MakeDir("\\工程管理\\" & Tables("在建项目").Current("年份") & "\\" & Tables("在建项目").Current("档案编号") )      
[此贴子已经被作者于2017/4/1 13:47:30编辑过]
--  作者：有点蓝
--  发布时间：2017/4/1 15:25:00
--  
代码没有问题，弹出看看完整路径

msgbox（"\\工程管理\\" & Tables("在建项目").Current("年份") & "\\" & Tables("在建项目").Current("档案编号")）
--  作者：zoyong
--  发布时间：2017/4/1 16:43:00
--  
Dim Table As String =e.Form.TableName
Dim hangshu As Integer= Tables(Table).Rows.Count-1
If hangshu <0 Then
    Return
End If

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.8"
    ftp.Port = 21
    ftp.Account = "cgftp"
    ftp.Password = "Xj671766"
    ftp.ChangeDir("\\工程管理")    \'设置根目录
    
    Dim fp As String = "\\工程管理"
    Dim ftpName As String = fp & "\\" & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号") & hz      \'保存路径
    If ftp.Upload(dlg.FileName,ftpname) = True Then
        Dim sz As Date = ftp.GetFileTime(ftpName)
        ftp.Rename(ftpName, fp & "\\"  & Tables("项目资料").Current("年份") & "\\" & Tables("项目资料").Current("档案编号")  & "\\" &  Format(sz, "招标文件"  &  "-"   &   Tables("项目资料").Current("项目名称")  &  "yyyyMMddHHmmss") & _userName & hz )     ‘保存的文件名
        Messagebox.show("文件上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If


上面代码，FTP路径：/工程管理/2017/P17008/           其中     2017为“年份”   ，  P17008为“档案编号”  。

问题：FTP上有对应的“档案编号”目录，则文件能上传到指定的以“档案编号”为名的目录下面
         FTP上没有对应的“档案编号”目录，则上传到根目录了，求解！！！       上面的保存路径代码有问题
[此贴子已经被作者于2017/6/20 10:51:23编辑过]