以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现自动修改上传文件的文件名为创建时间  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70292)
--  作者：wuzhouji
--  发布时间：2015/6/18 14:34:00
--  如何实现自动修改上传文件的文件名为创建时间
如何实现自动修改上传文件的文件名为创建时间？
--  作者：大红袍
--  发布时间：2015/6/18 15:10:00
--  
以下是引用wuzhouji在2015/6/18 14:34:00的发言：
如何实现自动修改上传文件的文件名为创建时间？

 

上传的操作，是你控制的吗？

 

只要自己写代码才能控制

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\\data\\Desert.jpg","/" & Format(date.Now, "yyyyMMddHHmmss") & ".jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：wuzhouji
--  发布时间：2015/6/18 16:26:00
--  如何实现用对话框上传文件，之后自动给上传的文件重命名为文件的创建时间？
如何实现用对话框上传文件，之后自动给上传的文件重命名为文件的创建时间？
--  作者：大红袍
--  发布时间：2015/6/18 16:31:00
--  

Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"
ftp1.UTF8 = True
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim finfo As New FileInfo(f)
        If ftp1.Upload(f,"/" & finfo.Name.Replace(finfo.Extension, Format(Date.Now, "yyyyMMddHHmmss") & finfo.Extension)) = True Then
            Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If
ftp1.Close

[此贴子已经被作者于2015/6/18 16:31:54编辑过]
--  作者：wuzhouji
--  发布时间：2015/6/19 15:39:00
--  通过文件管理上传文件经常重名怎么办？
我们每天需要上传大概100张照片和20几个文件，在表中上传时经常出现重名，必须重命名，或者不小心把前面重名的文件覆盖掉了，造成前面的文件丢失。能否实现通过文件浏览器或者图片浏览器上传文件的时候自动将文件的创建时间加到现有文件名的前面？这样不同的行上传文件就基本不会互相影响了
--  作者：大红袍
--  发布时间：2015/6/19 16:58:00
--  
呃，4楼的代码就是啊。