从Ftp下载Txt文件，任何Txt文件，不知道Txt文件的名称

本文关键字：文件 Txt 不知道 任何 Ftp 下载 | 更新日期: 2023-09-27 18:09:33

我想从ftp下载txt文件不知道的名称任何txt文件是下载我有一个代码下载一个txt文件，但我不能下载任何txt文件不知道的名称请帮助我，我将显示下面的代码。

    string localPath = @"E:'";
    string fileName = "sample.txt";
    try
    {
        FtpWebRequest requestFileDownload = (FtpWebRequest)WebRequest.Create("ftp://---.--.---.--/" + fileName);
        requestFileDownload.Credentials = new NetworkCredential("----", "----");
        requestFileDownload.Method = WebRequestMethods.Ftp.DownloadFile;

        FtpWebResponse responseFileDownload = (FtpWebResponse)requestFileDownload.GetResponse();
        string _filename = "----.txt";
        Stream responseStream = responseFileDownload.GetResponseStream();
        FileStream writeStream = new FileStream(localPath + _filename, FileMode.Create);
        int Length = 2048;
        Byte[] buffer = new Byte[Length];
        int bytesRead = responseStream.Read(buffer, 0, Length);
        while (bytesRead > 0)
        {
            writeStream.Write(buffer, 0, bytesRead);
            bytesRead = responseStream.Read(buffer, 0, Length);
        }
        responseStream.Close();
        writeStream.Close();
        requestFileDownload = null;
        responseFileDownload = null;

从Ftp下载Txt文件，任何Txt文件，不知道Txt文件的名称

可以列出ftp目录下的所有文件。参见使用c#列出ftp服务器上的所有文件


示例用法:

    Dim FTPfiles = GetListOfFilesinFTPdirectory(FtpDir, ftpusername, ftppassword, New String() {".txt", ".aspx"})
    For Each f In FTPfiles
        Debug.WriteLine(f)
    Next

使用下面的函数列出FTP目录下的文件。(只返回文件名)

''' <summary>
''' 
''' </summary>
''' <param name="FtpDir">ftp://------@ftp.domainname.com/www/en/...</param>
''' <param name="ftpusername">FTP user name</param>
''' <param name="ftppassword">FTP user password</param>
''' <param name="fileExtensions">file extension e.g New String() {".txt", ".aspx", ".png"}, Nothing means list all files.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetListOfFilesinFTPdirectory(FtpDir As String, ftpusername As String, ftppassword As String, Optional fileExtensions As String() = Nothing) As List(Of String)
    Dim FTPReq As FtpWebRequest = DirectCast(WebRequest.Create(FtpDir), FtpWebRequest)
    FTPReq.Method = WebRequestMethods.Ftp.ListDirectoryDetails
    FTPReq.Credentials = New NetworkCredential(ftpusername, ftppassword)
    FTPReq.UseBinary = True
    FTPReq.KeepAlive = False
    Using response As FtpWebResponse = DirectCast(FTPReq.GetResponse(), FtpWebResponse)
        Using responseStream As Stream = response.GetResponseStream()
            Using reader As New StreamReader(responseStream)
                Dim RawDirectoryListingData As String = reader.ReadToEnd()
                'Debug.WriteLine(RawDirectoryListingData)
                'Windows FTP Server Response Format
                'DateCreated        IsDirectory   Size  FileName
                '06-09-14  07:01PM                39778 MasterPage.master
                '06-09-14  07:01PM                 2806 MasterPage.master.vb
                '09-01-10  01:43PM                 1046 masterpagelink.txt
                '12-29-10  06:16PM                75293 MasterPageTR.master
                '12-29-10  06:16PM                10500 MasterPageTR.master.vb
                '09-01-10  01:43PM                10725 meebotest.aspx
                '01-17-13  03:54PM       <DIR>          mp4player
                '11-30-11  12:40PM                17164 news.aspx
                '11-30-11  12:40PM                 2342 news.aspx.vb
                '12-14-10  10:17PM                12889 news.xml
                '12-14-10  08:14PM                16379 news1.xml

                Dim lines() As String = Split(RawDirectoryListingData, Environment.NewLine)
                Dim FTPFileNames As New List(Of String)
                For Each line As String In lines
                    If String.IsNullOrEmpty(line) Then Continue For
                    Try
                        ''Parse date
                        'Dim DateCreatedStr As String = line.Substring(0, 17)
                        'Dim DateCreated As DateTime = Nothing
                        'DateTime.TryParse(DateCreatedStr, DateCreated)
                        line = line.Remove(0, 24)
                        ' Parse <DIR>
                        Dim dirStr As String = line.Substring(0, 5)
                        Dim isDirectory As Boolean = dirStr.Equals("<dir>", StringComparison.InvariantCultureIgnoreCase)
                        line = line.Remove(0, 5)
                        line = line.Remove(0, 10)
                        ' Parse name
                        Dim fName As String = line
                        If String.IsNullOrEmpty(fName) Then Continue For
                        If Not isDirectory Then
                            If fileExtensions Is Nothing OrElse fileExtensions.Length < 1 Then
                                FTPFileNames.Add(fName)
                            Else
                                For Each ext As String In fileExtensions
                                    Dim fExt As String = IO.Path.GetExtension(fName)
                                    If fExt.Equals(ext, StringComparison.InvariantCultureIgnoreCase) Then
                                        FTPFileNames.Add(fName)
                                        Exit For
                                    End If
                                Next
                            End If
                        End If
                    Catch ex As Exception
                        Continue For
                    End Try
                Next
                Return FTPFileNames
            End Using
        End Using
    End Using
    Return Nothing
End Function
相关文章：