VBA 64位系统中，API创建FTP，获得指定路径文件名

VBA (Visual Basic for Applications) 是一种宏语言，主要用于Microsoft Office应用程序中自动化任务。在64位Windows系统下，如果你想通过VBA创建FTP连接并获取指定路径的文件名，你可以使用Microsoft Scripting Runtime库提供的Scripting.FileSystemObject对象，它提供了一套用于处理文件和目录操作的功能。

以下是一个简单的示例代码片段：

Sub GetFileNameFromFTP()
    Dim fso As Object ' FileSystemObject
    Dim ftpSite As String
    Dim remoteFolder As String
    Dim fileName As String
    
    ' 设置你的FTP信息
    ftpSite = "your_ftp_address" ' FTP服务器地址
    remoteFolder = "/path/to/your/folder/" ' 远程文件夹路径

    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 创建FTP连接
    Dim objFtp As Object
    Set objFtp = CreateObject("MSXML2.ServerXMLHTTP") ' 使用ServerXMLHTTP对象作为基础的FTP客户端
    objFtp.Method = "GET"
    objFtp.Open "PROPFIND", ftpSite & "/" & remoteFolder, False
    objFtp.Send
    
    ' 检查返回状态，并寻找包含文件名的部分
    If objFtp.Status = 200 Then
        Dim responseText As String
        responseText = objFtp.responseText
        ' 通常响应文本中会包含一个叫"迅捷清单"的东西，找到这个部分，解析出文件名
        fileName = ExtractFileNameFromResponse(responseText)
    End If
    
    MsgBox "File name: " & fileName ' 显示结果
End Sub

Private Function ExtractFileNameFromResponse(responseText As String) As String
    ' 此处需要根据实际的FTP服务器响应格式去提取文件名，这通常是XML格式，所以可能涉及到XML解析
    ' 这里只是一个简化的例子，你需要自定义这部分代码以匹配你的服务器响应
    ' 假设文件名位于名为"D:getfilelist.xml"的节点内
    Dim xmlDoc As MSXML2.DOMDocument60
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.LoadXML responseText
    ExtractFileNameFromResponse = xmlDoc.SelectSingleNode("//D:getfilelist.xml").text ' 假设这是文件名节点
End Function

注意：由于VBA不是设计用于复杂的网络通信的，上述代码可能需要根据实际情况做适当的调整，并且对于敏感的FTP站点，建议使用更专业的FTP库或组件，比如WinSCP API等。