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上没有对应的“档案编号”目录，则上传到根目录了，求解！！！ 上面的保存路径代码有问题
加好友 
发短信
Post By：2017/6/20 10:53:00 [显示全部帖子]
