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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → MoveDirectory

共有2479人关注过本帖树形打印复制链接主题：MoveDirectory

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 10:27:00 [显示全部帖子]

ftp要这样用：http://www.foxtable.com/webhelp/scr/1410.htm

重命名目录：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Rename("\Key\","\NewKey\") Then
Messagebox.show("重命名目录成功!")
End If

FileSys.MoveDirectory不能用于ftp

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 11:49:00 [显示全部帖子]

到底使用的是ftp还是共享还？这完全是两回事，不要混用好吗！

截图说明真正的文件路径是怎么样的

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 13:28:00 [显示全部帖子]

ftp设置的根目录是什么？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 14:10:00 [显示全部帖子]

创建ftp的时候，指定的目录是什么？

If ftp.Rename(r("版本目录"),str1) Then

msgbox(0)

r("版本目录") = str1

r("完整路径") = "/" & r("版本目录")

End If

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 15:19:00 [显示全部帖子]

If ftp.Rename(r("版本目录"),str1) Then

msgbox(0)

r("版本目录") = str1

r("完整路径") = "/" & r("版本目录")

End If

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 15:34:00 [显示全部帖子]

不能改名中间的目录，只能是最底层的目录，如：

ftp1.Rename("\a\b\c\","\a\b\d\")

或

ftp1.Rename("\a\b\","\a\c\")

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 15:41:00 [显示全部帖子]

1、添加目录：A/temp

2、再添加子目录：A/temp/B

3、把【/A/B】里的文件移动到【A/temp/B】

4、删除目录：/A/B

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112389 积分：572213 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 17:19: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

GetFileList

用于返回FTP服务器指定目录下的全部文件名，以字符串集合的形式返回，语法：

GetFileList(Path)

Path：可选参数，用于指定目录，如果省略，则返回当前目录下的全部文件名。

示例

例如列出photo目录下的所有文件：

Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList(r("测试组名") & "/" & r("编号"))
For Each fl As String In fls

ftp1.Rename(r("测试组名") & "/" & r("编号") & "/" & fl,str1 & "/" & fl)

Output.Show(fl)
Next

下一主题 >> << 上一主题

主题：MoveDirectory