如何通过Inet控件在Ftp方式下载服务器端指定目录下的所有文件

Question

如何通过Inet控件在Ftp方式下载服务器端指定目录下的所有文件

Answer 1

Dim mdata As String
Dim sdata As String
Dim getfiles As Variant
Dim f() As Byte
Dim sUrl As String
dim i as long
sUrl = "127.0.0.1"
Inet1.Execute sUrl, "ls /pub/"
Do While Inet1.StillExecuting
   DoEvents
Loop
sdata = ""
mdata = Inet1.GetChunk(1024, icString)
Do While mdata <> ""
   sdata = sdata & mdata
   mdata = Inet1.GetChunk(1024, icString)
Loop
MsgBox sdata
getfiles = Split(sdata, vbCrLf)
i = 0
Do While Len(getfiles(i)) > 0
  If InStr(1, getfiles(i), "/") = 0 Then  '过滤目录
     Inet1.Execute sUrl, "get /pub/" & getfiles(i) & " c:\temp\" & getfiles(i)
     Do While Inet1.StillExecuting
        DoEvents
     Loop
  End If
  i = i + 1
Loop
Inet1.Execute sUrl, "quit"