使用ftp.exe依次连接多个FTP服务器(使用VBA生成的批处理文件)

Sub ConnectFTPServers()
    Dim ftpServers As Variant
    Dim ftpServer As Variant
    Dim ftpScript As String
    Dim ftpScriptPath As String
    
    ' 定义要连接的FTP服务器列表
    ftpServers = Array("ftp.example1.com", "ftp.example2.com", "ftp.example3.com")
    
    ' 定义生成的批处理文件路径
    ftpScriptPath = "C:\ftp_script.txt"
    
    ' 生成批处理文件内容
    ftpScript = "echo off" & vbCrLf
    For Each ftpServer In ftpServers
        ftpScript = ftpScript & "echo Connecting to " & ftpServer & vbCrLf
        ftpScript = ftpScript & "ftp " & ftpServer & vbCrLf
        ' 在这里可以添加更多的FTP命令，如上传、下载文件等
        ftpScript = ftpScript & "quit" & vbCrLf
    Next ftpServer
    
    ' 将批处理文件内容写入文件
    Open ftpScriptPath For Output As #1
    Print #1, ftpScript
    Close #1
    
    ' 运行批处理文件
    Shell "cmd /c " & ftpScriptPath, vbNormalFocus
End Sub