VB.NET 从 FTP 服务器下载带有时间戳的最新文件名

Question

我想将一个文件从我的 FTP 服务器拉到我的本地驱动器中。然而，这样做最困难的部分是文件名是一个每天都在变化的时间戳。无论文件如何随日期发生变化，程序都应下载该文件；年、月、时、分和秒。名称的格式始终相同。文件名示例在下面以粗体显示。请指教！

例如，
用户名 - meUser
密码 - mepswrd
以及 FTP 的 URL
/afea/euser/aefe/aole/efa/ 以及下载后我希望文件保存的路径。
C:\Users\alae\Desktop\loaef
并且文件格式为
20160223.171234.BA_DESRP_20160121.txt

文件中唯一不变的部分是BA_DESRP，所有其他部分都可以更改，因为它是一个时间戳。

这是我开始的代码：

Const lf As String = "C:\Users\alae\Desktop\loaef"
Const rf As String = "/afea/euser/aefe/aole/efa/"
Const ht As String = "host"
Const un As String = "username"
Const pw As String = "password"

Dim URI As String = ht & rf
Dim ftp As System.Net.FtpWebRequest = _
    CType(FtpWebRequest.Create(URI), FtpWebRequest)

ftp.Credentials = New _
    System.Net.NetworkCredential(un, pw)

Answer 1

FtpWebRequest（或 .NET 框架中随时可用的任何其他功能）没有简单的方法。你必须：

• 使用WebRequestMethods.Ftp.ListDirectory 列出远程目录
• 将返回的列表过滤为包含BA_DESRP 的列表
• 从中选择最新的
• 然后下载

Dim url As String = "ftp://ftp.example.com/remote/path/"
Dim credentials As NetworkCredential = New NetworkCredential("username", "password")
Const localPath = "C:\local\path"

Dim listRequest As FtpWebRequest = WebRequest.Create(url)
listRequest.Method = WebRequestMethods.Ftp.ListDirectory
listRequest.Credentials = credentials

Dim latest As String = Nothing

Using listResponse As FtpWebResponse = listRequest.GetResponse(),
      listStream As Stream = listResponse.GetResponseStream(),
      listReader As StreamReader = New StreamReader(listStream)
    While Not listReader.EndOfStream
        Dim filename As String = listReader.ReadLine()

        If filename.Contains("BA_DESRP") Then
            Console.WriteLine("Found {0} ...", filename)

            If (latest Is Nothing) OrElse (latest < filename) Then
                latest = filename
            End If
        End If
    End While
End Using

If Not latest Is Nothing Then
    Console.WriteLine("Downloading {0} ...", latest)
    Dim webClient As New WebClient()
    webClient.Credentials = credentials
    webClient.DownloadFile(url + latest, Path.Combine(localPath, latest))
End If

---

或者使用其他功能更强大的 FTP 库。

例如WinSCP .NET assembly:

Const localPath = "C:\local\path\"
Const remotePath = "/remote/path"

Dim sessionOptions As New SessionOptions
With sessionOptions
    .Protocol = Protocol.Ftp
    .HostName = "ftp.example"
    .UserName = "username"
    .Password = "password"
End With

Using session As New Session
    session.Open(sessionOptions)

    Dim latest As RemoteFileInfo =
        session.ListDirectory(remotePath).Files.
            Where(Function(file) file.Name.Contains("BA_DESRP")).
            OrderByDescending(Function(file) file.Name).
            FirstOrDefault()

    If Not latest Is Nothing Then
        Console.WriteLine("Downloading {0} ...", latest)
        session.GetFiles(latest.FullName, localPath).Check()
    End If
End Using

如果您可以使用实际的文件时间戳（而不是其名称中的时间戳），那就更简单了。见Downloading the most recent file。

（我是 WinSCP 的作者）

Answer 2

这将为您提供目录中的文件列表。由于您的文件名已经包含时间戳，您只需从文件名中解析出来，然后最终将每个时间戳存储在一个变量中，然后您可以将下一个文件的时间戳与之进行比较。如果下一个文件大于变量中的值，请分配该值。最后，当你完成时，你的 var 应该反映你需要的文件名，在那个阶段你可以调用 download 方法来获取文件。

 Dim request As FtpWebRequest = WebRequest.Create("ftp://" & "servername" & "/" & "directory" & "/*")
    request.Method = WebRequestMethods.Ftp.ListDirectory
    request.Credentials = New NetworkCredential("username", "password")

    Using reader As New StreamReader(request.GetResponse().GetResponseStream())
        Do Until reader.EndOfStream
            Console.WriteLine(reader.ReadLine())
        Loop
    End Using

由于您说文件有数千个，因此这条路线可能不是您的最佳选择。如果您不限于 .NET，则可能需要探索其他选项，例如使用 ftp 客户端，您可以在其中通过文件的实际时间戳进行搜索...