Access开发平台--FTP文件共享处理/互联网实现附件上传下载方法-杜小杰专栏

使用前请先确定是否已经有了一个可用的FTP服务器。可先在平台“FTP服务器参数配置”界面中配置FTP服务器的连接参数。(服务器地址填写IP或域名)
提示对于服务器上的文件路径，不能包含根目录，使用正斜杠(/)、反斜杠（\）作为路径分隔符都可以

文件下载示例：通过“FTP服务器参数配置”界面指定服务器参数

Sub FTPDownloadFile()
    With FTPServer
        .OpenConnection
        .DownloadFile "AAA\BBB\CCC\A.jpg", "C:\testA.jpg"
        .DownloadFile "AAA\BBB\CCC\B.jpg", "C:\testB.jpg"
        .CloseConnection
    End With
End Sub

文件下载示例：通过 OpenConnection 方法的参数指定服务器参数

Sub FTPDownloadFile()
    With FTPServer
        .OpenConnection "192.168.1.1", , "用户名", "密码"
        .DownloadFile "AAA\BBB\CCC\A.jpg", "C:\testA.jpg"
        .DownloadFile "AAA\BBB\CCC\B.jpg", "C:\testB.jpg"
        .CloseConnection
    End With
End Sub

Private Sub Command0_Click()
    With FTPServer
        .OpenConnection "erp.tn.cn", 21, "TNHAPP", "123456"
         MsgBox "10.pdf是否存在：" & .FileExists("10.pdf")
        .DownloadFile "10.pdf", CurrentProject.Path & "\10.pdf"
        .CloseConnection
    End With
End Sub

文件上传示例

Sub FTPUploadFile()
    With FTPServer
        .OpenConnection
        .UploadFile CurrentProject.Path & "\A.jpg", "AAA\BBB\CCC\A.jpg"
        .UploadFile CurrentProject.Path & "\B.jpg", "AAA\BBB\CCC\B.jpg"
        .CloseConnection
    End With
End Sub

方法名说明
OpenConnection 打开到FTP服务器的连接。
参数：ServerAddress, Port, Username, Password
在此处指定的参数优先于在“FTP服务器参数配置”中指定的参数。
CloseConnection 断开连接。
CreateDirectory 创建文件夹，可以是多级目录，如果目录已存在，则创建时忽略。
DeleteDirectory 删除文件夹，只有文件夹为空时才能删除，如果其中存在文件或子文件夹时则会出错。
DeleteFile 删除文件。
Rename 重命名文件或文件夹。
FileExists 判断指定文件是否存在，如存在返回True。
DeleteFile 删除文件。
FindFirstFile 开始查找第1个文件。
FindNextFile 查找下一个文件。
EndFind 结束查找。FindFirstFile、FindNextFile、EndFind同时配合使用进行文件搜索。
UploadFile 上传本地文件至FTP服务器。
参数：LocalFile, RemoteFile, TransferMode
LocalFile 本地文件路径名。
RemoteFile 上传到服务器的文件路径名，路径不存在时会自动创建。
TransferMode 传输模式，是以文本传输还是二进制传输。
DownLoadFile 下载FTP服务器上的文件至本地。
参数：LocalFile, RemoteFile, TransferMode
RemoteFile 服务器上的文件路径名。
SaveAsFile 保存至本地的文件路径名，路径不存在时会自动创建。
TransferMode 传输模式，是以文本传输还是二进制传输。
DeleteFile 删除文件。

如何安装及配置FTP服务器[Access软件网]
http://www.accessoft.com/article-show.asp?id=8002