[共享]使用Wininet的VBA FTP操作的类模块

winland

这段时间看到很多有关FTP上传和下载的帖子，最近在自己的硬盘里找到一个FTP类，使用Wininet.dll的API，里面没有作者信息，估计是老外写的(从一个CSInternetTool包里找到的)。简单易用，那个工具包里有一个类模块，一个标准模块，但是没有应用的例子。不过里面的函数都十分易懂，你可以用它来做很多的FTP操作(上传，下载，删除和更名文件，创建，移动和删除文件夹)。

我在下面的例子里放了下载和上传得代码仅供参考。已经在自建的FileZilla FTP Server上试过可行的。

EnKBaXTv.rar (24.94 KB, 下载次数: 2906)

2007-1-21 00:18 上传

点击文件名下载附件
[共享]使用Wininet的VBA FTP操作的类模块

[此贴子已经被作者于2007-1-21 0:29:34编辑过]

Aeolian-Vox

多谢分享。研究一下。

yuanzhuping

下来研究下，谢了。

zhaodx

Option Explicit
Dim cF As New cFTP
Sub DownlandFile()
    Dim strRemoteFile As String
    Set cF = New cFTP
    cF.SetModePassive
    strRemoteFile = "getpath.txt"        

    If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then '请问匿名和没有密码怎么填
        GoTo errhandle
    End If
    If cF.SimpleFTPGetFile("c:\vcd1\" & strRemoteFile, strRemoteFile) = False Then ‘下载到指定文件夹怎么写
        GoTo errhandle
    End If
    cF.CloseConnection
    Exit Sub
errhandle:
    MsgBox cF.GetLastErrorMessage
    cF.CloseConnection
End Sub

[此贴子已经被作者于2007-9-27 20:47:58编辑过]

winland

   If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then '请问匿名和没有密码怎么填

匿名和没有密码直接留空就可以了。

If cF.SimpleFTPGetFile("c:\vcd1\" & strRemoteFile, strRemoteFile) = False Then ‘下载到指定文件夹怎么写

要指定文件夹的话直接改c:\vcd1\就可以了。

zhaodx

Public Declare Function FtpOpenFile Lib "wininet.dll" Alias "FtpOpenFileA" (ByVal hFtpSession As Long, ByVal sBuff As String, ByVal Access As Long, ByVal Flags As Long, ByVal Context As Long) As Long

不知到模块里上面的函数能否用来打开文件？如何应用？请搂住能解释！

winland

你可以看看cFTP里的函数FTPDownloadFile里对FTPOpenFile的使用方法。

蛇皮西袋

winland大哥

请帮忙！

如果我要多文件上传或下载，代码应该怎么写？

还有能否提供对FTP的文件删除，重命名等代码，（这个已经解决，没看仔细，在CFTP类模块中还有很多代码可以参考）万分感谢！！！

[此贴子已经被作者于2007-10-23 11:23:28编辑过]

zhaodx

请问服务器连通，文件传输时加个进度条怎么加？

shimeifu

If cF.SimpleFTPGetFile("c:\vcd1\" & strRemoteFile, strRemoteFile) = False Then '下载的文件是当前FTP帐号所在根目录下子目录下的文件该怎么填，直接在strRemoteFile前面加路径吗？如果对方是UNIX系统服务器，路径怎么写，是'/ ' 还是'\'?