Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制文件


  共有7979人关注过本帖树形打印复制链接

主题：复制文件
帅哥哟，离线，有人找我吗？
huhu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		复制文件  发帖心情 Post By：2022/9/26 16:51:00 [显示全部帖子]

帮助文件里面的rename说明：写这段帮助的时候，我意外发现Rename还可以移动文件。
例如将文件"jz.png"从photo目录移到到newkey目录：
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Rename("\photo\jz.png","\newkey\jz.png") Then
    Messagebox.show("移动文件成功!")
End If

是否有可以直接在ftp服务器上复制文件。
比如原目录\需求文档\20220926下面有3个文件。我点击按钮，自动创建需求文档\20220927，然后把之前目录的3个文件自动复制到这个新建的文件夹里面。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2022/9/26 17:17:00 [显示全部帖子]

先下载，再上传。感觉不方便且耗时。就不能直接ftp上复制过去么
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2022/9/26 19:41:00 [显示全部帖子]

下载
fls = ftp.GetdetailList("\需求文档\" & r("需求编号"))   
    For Each fl As String In fls
        
        If ftp.Download( fl, ProjectPath & "\RemoteFiles\"  &  r("需求编号") & “\”  & fl) = True Then
            msgbox(0)
        End If 
        
    Next

提示路径中具有非法字符。这个路径也不会调试。
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2022/9/26 20:44:00 [显示全部帖子]

ftp.MakeDir("\需求文档\" & d("需求编号"))
    
    fls = ftp.GetdetailList("\需求文档\" & r("需求编号"))   
    For Each fl As String In fls
        msgbox(fl)----执行正确
        Dim idx() As String = fl.split("*")
        If idx(2) = "D" Then Continue For 
        fl = idx(0)
        msgbox(fl)----执行正确
        If ftp.Download(fl, ProjectPath & "\RemoteFiles\" & fl) = True Then
            msgbox(0)----没有弹出0
        End If 
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2022/9/26 21:34:00 [显示全部帖子]

ftp.MakeDir("\需求文档\" & d("需求编号"))
    
    fls = ftp.GetdetailList("\需求文档\" & r("需求编号"))   
    For Each fl As String In fls
        Dim idx() As String = fl.split("*")
        If idx(2) = "D" Then Continue For 
        fl = idx(0)
        If ftp.Download("\需求文档\" & r("需求编号") & "\" & fl, ProjectPath & " \RemoteFiles\" & r("需求编号") & "\" & fl) = True Then            
        End If
        If ftp.Upload(ProjectPath & " \RemoteFiles\" & r("需求编号") & "\" & fl, "\需求文档\" & r("需求编号") & "\" & fl) = True Then
            msgbox(fl)----弹出正确，可是ftp目录没有文件，不应该是上传成功了么？
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
huhu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1188 积分：8282 威望：0 精华：0 注册：2015/3/30 10:44:00 		  发帖心情 Post By：2022/9/27 9:38:00 [显示全部帖子]

 ftp.MakeDir("\需求文档\" & d("需求编号"))
    
    fls = ftp.GetdetailList("\需求文档\" & r("需求编号"))   
    For Each fl As String In fls
        Dim idx() As String = fl.split("*")
        If idx(2) = "D" Then Continue For 
        fl = idx(0)
        If ftp.Download("\需求文档\" & r("需求编号") & "\" & fl, ProjectPath & " \RemoteFiles\" & r("需求编号") & "\" & fl) = True Then            
        End If
        If ftp.Upload(ProjectPath & " \RemoteFiles\" & r("需求编号") & "\" & fl, "\需求文档\" & d("需求编号") & "\" & fl) = True Then
            Dim id As Integer
            id = fl.IndexOf("_")
            fl = fl.Substring(id)
            msgbox(fl)----显示正确
            fl = d("需求编号") & fl
            msgbox(fl)----弹出是要的结果，可是文件名还是之前的，并没有改。
        End If
    Next 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 5 次数据查询