vba 登陆FTP 并上传和下载 文件

kanndy

vba 登陆FTP 并上传和下载 文件代码：

Sub down_or_send()
filenum1 = FreeFile: filenum2 = FreeFile: filenum3 = FreeFile

Open "c:\aaa.txt" For Output As #filenum1

'Print #filenum1, "open ip" & vbCrLf & "USER" & vbCrLf & "Foxuser" & vbCrLf & "cd .\keen" & vbCrLf _
& "dir *.xls c:\c.txt" & vbCrLf & "bin" & vbCrLf & "lcd d:" & vbCrLf & "get 123.xls" & vbCrLf & "bye"    (下载）

Print #filenum1, "open ip" & vbCrLf & "USER" & vbCrLf & "Foxuser" & vbCrLf & "cd .\keen" & vbCrLf _
& "dir *.xls c:\c.txt" & vbCrLf & "bin" & vbCrLf & "send lcd " & vbCrLf & "send d:\1234.xls" & vbCrLf & "bye"  '（上传）
Close #filenum1

Open "c:\aaa.bat" For Output As #filenum3
Print #filenum3, "ftp -s:c:\aaa.txt" & vbCrLf & "Echo ""Complete"" > " & "c:\aaa.out"
Close #filenum3

Shell ("c:\aaa.bat")
Do While Dir("c:\aaa.out") = ""
  DoEvents

  Loop

Application.Wait (Now + TimeValue("0:00:03"))

If Dir("c:\aaa.bat") <> "" Then Kill ("c:\aaa.bat")

If Dir("c:\aaa.out") <> "" Then Kill ("c:\aaa.out")

'If Dir("c:\b.txt") <> "" Then Kill ("c:\b.txt")
If Dir("c:\aaa.txt") <> "" Then Kill ("c:\aaa.txt")

End Sub

hwc2ycy

管道操作很熟练啊，楼主。