使用vba代码从ftp服务器获取文件列表，并在excel中显示

Question

我已经编写了一个宏来从ftp服务器获取带有详细信息的文件，但我无法从输出文件中解析它。 或者任何其他选择都会很棒。

感谢您的帮助。

Set FSO = CreateObject("scripting.filesystemobject")
f = "D:\FTPScript.txt"

Dim vFTPServ As String
Dim user As String
Dim Password As String
Dim vFile As String

vFTPServ = Sheet1.ftpHostTxt.Text
user = Sheet1.unmTxt.Text
Password = Sheet1.pwdTxt.Text
vFile = Sheet1.filePath.Text

    Open f For Output As #1
    Print #1, "Open "; vFTPServ
    Print #1, user
    Print #1, Password
    Print #1, "ascii"
    Print #1, "prompt"
    'Print #1, "put " & VREDET; vFile
    Print #1, "ls -block-size"
    Print #1, "disconnect"
    Print #1, "bye"
    Print #1, "exit"
    Close #1
    Shell "cmd /c C:\WINDOWS\system32\ftp.exe -i -s:D:\FTPScript.txt > D:\ftpuploadlog.txt", vbHide

Answer 1

它看起来不像ftp.exe支持-block-size;但是，要将ls命令的输出转储到本地文件，只需将文件路径指定为ls的local-file参数。

http://www.nsftools.com/tips/MSFTP.htm#ls