以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过文件管理上传文件经常重名怎么办？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70369)
--  作者：wuzhouji
--  发布时间：2015/6/19 16:58:00
--  通过文件管理上传文件经常重名怎么办？
我们每天需要上传大概100张照片和20几个文件，在表中上传时经常出现重名，必须重命名，或者不小心把前面重名的文件覆盖掉了，造成前面的文件丢失。能否实现通过文件浏览器或者图片浏览器上传文件的时候自动将文件的创建时间加到现有文件名的前面？这样不同的行上传文件就基本不会互相影响了
--  作者：Bin
--  发布时间：2015/6/19 17:01:00
--  
参考帮助http://www.foxtable.com/help/topics/2209.htm

在事件里设置 e.fileName 即可
--  作者：大红袍
--  发布时间：2015/6/19 17:17: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