[求助]扩展列文件保存位置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]扩展列文件保存位置问题

共有4164人关注过本帖树形打印复制链接主题：[求助]扩展列文件保存位置问题

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/23 9:48:00 [显示全部帖子]

呵呵,这个不是简单的一两句代码可以判断写的. 是个复杂的过程.

思路大概是,添加文件时,在添加文件事件利用PINg判断网络是否通http://www.foxtable.com/help/topics/1401.htm

不同则取消,转而存到本地,并且把路径地址文件名和标记存放到另外一列,或者专门起一个表.

可以在计时器中用多线程定时检测网络是否通,通就遍历未上传的文件上传上去,要想不影响操作,不卡顿,就得用多线程 FTP上传看http://www.foxtable.com/help/topics/1410.htm

也可以额外用一个按钮,点击就判断服务器是否通,通就批量上传.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/23 10:19:00 [显示全部帖子]

用rename 看看行不行

Rename

用于重命名文件或目录，语法：

Rename(currentName, newName)

currentName：要重命名的文件或目录，含路径。
newName：新的名称，含路径。

如果重命名成功，则返回True，否则返回False.

示例

重命名文件：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Rename("\Photo\Desert.jpg","\新目录\Desert1.jpg") Then
Messagebox.show("重命名文件成功!")
End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/23 10:20:00 [显示全部帖子]

可以的,帮助有说

例如将文件"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

MakeDir

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

主题：[求助]扩展列文件保存位置问题