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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP文件管理

共有4549人关注过本帖树形打印复制链接主题：FTP文件管理

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/30 9:16:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/1963.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/30 9:53:00 [显示全部帖子]

以下是引用kaituozhe在2017/8/30 9:40:00的发言：
全部都看了，没有能够实际参考的例子呀

做一个简单的控制，不要像你那样做。

循环文件夹的各个文件，对比ftp上面的文件（对比修改的时间），如果不同，就上传后删除，否则，就直接删除。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/30 10:07:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/0341.htm

http://www.foxtable.com/webhelp/scr/1410.htm

http://www.foxtable.com/webhelp/scr/0338.htm

http://www.foxtable.com/webhelp/scr/0657.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/30 11:05:00 [显示全部帖子]

回复11楼

Dim ftp As new FTPClient
ftp.Host = "127.0.0.1"
ftp.Account = "test"
ftp.Password = "test"
For Each file As String In FileSys.GetFiles(ProjectPath & "RemoteFiles")
    If FileIsOpened(file) = False Then
        Dim finfo As new FileInfo(file)

        If ftp.GetFileSize("/" & FileSys.GetName(file)) <> finfo.Length OrElse ftp.GetFileTime("/" & FileSys.GetName(file)) < finfo.LastWriteTime Then
            If ftp.Upload(file, "/" & FileSys.GetName(file)) Then
                FileSys.DeleteFile(file)
            End If

        Else
            FileSys.DeleteFile(file)
        End If
    End If
Next

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/30 11:06:00 [显示全部帖子]

回复12楼，你要先创建文件夹啊

MakeDir

在ftp上创建目录，语法：

MakeDir(Path)

Path：要创建的目录。

如果创建目录成功，则返回True，否则返回False.

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.MakeDir("\photo\hdx") Then
Messagebox.Show("创建目录成功!")
Else
Messagebox.Show("创建目录失败!")
End If