FTP动态路径 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

帮忙修改指定路径

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

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.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

路径格式:

/工程管理/2014/项目名称

/工程管理/2015/项目名称

/工程管理/2016/项目名称

/工程管理/2017/项目名称

动态获取年份和项目名称

[此贴子已经被作者于2017/3/25 13:27:48编辑过]

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

有点蓝老师上传错误

路径没问题 FTP中有指定的文件名 /工程管理/2016/***项目名称

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)

这个代码还有问题

换成这个代码就可以,但是文件存在根目录下面

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)

蓝老师是年份取值问题

只要年不要月

取值2016

此主题相关图片如下：qq图片20170325161602.png

[此贴子已经被作者于2017/3/25 16:19:31编辑过]

主题：FTP动态路径