以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何在服务器上复制文件及附加数据据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147207)
--  作者：liuzhenguo100
--  发布时间：2020/3/11 21:41:00
--  [求助]如何在服务器上复制文件及附加数据据？
        FileSys.CopyFile(".\\works\\HBBBZS2.mdf", ".\\works\\" & user.name & " \\" & XM_name & ".mdf")
        FileSys.CopyFile(".\\works\\HBBBZS2.ldf", ".\\works\\" & user.name & " \\" & XM_name & ".ldf")


        Dim cmd As  New System.Data.SqlClient.SqlCommand
        cmd.Connection = conn
        cmd.CommandText = "sp_attach_db   \'" & XM_name &  "\',\'" &  _
        ProjectPath & "works\\" & user.name & "\\" & XM_name & ".mdf\',\'"  & _
        ProjectPath & "works\\" & user.name & "\\" & XM_name & ".ldf\'"

我这是一个多账套的项目，sql数据库是安装在本机上，上面前两行代码，是复制数据库模版，命名为新创建的项目名称，后面5行代码是将复制后的数据库文件附加到sql数据库中，上面代码，在本机上能正常工作。现在我把sql数据库放在云服务器上，数据库模版文件也放在云服务器上，请问文件 的路径要怎么修改？
--  作者：狐狸爸爸
--  发布时间：2020/3/12 10:44:00
--  
filesys只能操作本地文件，服务器上的文件是不行的，你需要搭建一个ftp
--  作者：liuzhenguo100
--  发布时间：2020/3/12 15:10:00
--  

写这段帮助的时候，我意外发现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



这是帮助文档里说的移动文件的方法。现在我是想复制文件，但帮助里没有提到相应的方法。请问有没有办法实现复制文件？
--  作者：有点蓝
--  发布时间：2020/3/12 15:13:00
--  
先下载，在上传为一个新的名称即可