Thread: FTP download txt files

FtpWebRequest.Method Property (System.Net)
For example use the ListDirectory or ListDirectoryDetails ftp method.

Hi

Thanks for the response but I have already tried that. No luck.

I just did something similar to JohnH's advice and it worked fine here. Called ListDirectory to get a list of all the files within the ftp directory. Created a loop for the amount of file returned, within each itteration downloaded the individual file from the ftp.

Hi Tom

Do you mind showing me what you did?

Thanks

Sure, I'll write up a sample. Do you need to download all the files in the ftp or do you need to filter them and only download specific files? What action are you taking with the files that remain in the ftp directory after downloading them; do you want to delete them from ftp or keep running some type of comparison check to see if you previously downloaded & imported the file(s)?

Code:

Private Sub btnDownload_Click(...) Handles btnDownload.Click

        Dim alFtpFiles As New ArrayList
        Dim blnDownloaded As Boolean = False

        'Get a list of the files in the FTP directory
        alFtpFiles = FtpListDirectory(txtURL.Text _
                                      , txtLogin.Text _
                                      , txtPassword.Text)

        'Loop thru each of the items returned
        For Each objFile As Object In alFtpFiles
            'Display purposes
            'lstFiles.Items.Add(objFile.ToString)

            'Download file
            blnDownloaded = FtpDownloadFile(txtURL.Text _
                                            , objFile.ToString _
                                            , txtDownloadDirectory.Text _
                                            , objFile.ToString _
                                            , txtLogin.Text _
                                            , txtPassword.Text)
        Next objFile


End Sub

Code:

'List Ftp Directory Files

Public Function FtpListDirectory(ByVal strUrl As String, ByVal strLogin As String, ByVal strPassword As String) As ArrayList

        Dim alFtpFiles As New ArrayList
        Dim ftpRequest As FtpWebRequest = Nothing
        Dim ftpResponse As FtpWebResponse = Nothing
        Dim strmFiles As StreamReader = Nothing
        Dim strLine As String = ""

        Try
            ftpRequest = CType(WebRequest.Create(strUrl), FtpWebRequest)

            With ftpRequest
                .Credentials = New NetworkCredential(strLogin, strPassword)
                .Method = WebRequestMethods.Ftp.ListDirectory
            End With 
            ftpResponse = CType(ftpRequest.GetResponse, FtpWebResponse)
            strmFiles = New StreamReader(ftpResponse.GetResponseStream)

            If strmFiles IsNot Nothing Then strLine = strmFiles.ReadLine

            While strLine IsNot Nothing
                alFtpFiles.Add(strLine)
                strLine = strmFiles.ReadLine
            End While

        Catch ex As Exception
            Throw ex

        Finally
            If ftpResponse IsNot Nothing Then
                ftpResponse.Close()
                ftpResponse = Nothing
            End If

            If strmFiles IsNot Nothing Then
                strmFiles.Close()
                strmFiles = Nothing
            End If
        End Try

        Return alFtpFiles

    End Function

Code:

Public Function FtpDownloadFile(ByVal strUrl As String, ByVal strFileName As String, ByVal strTargetDirectory As String, ByVal strTargetFileName As String, ByVal strLogin As String, ByVal strPassword As String) As Boolean

        Dim ftpRequest As FtpWebRequest = Nothing
        Dim ftpResponse As FtpWebResponse = Nothing
        Dim strFtpFile As String = ""
        Dim strTargetFile As String = ""
        Dim strmReader As StreamReader = Nothing
        Dim strmResponse As Stream = Nothing
        Dim strmTarget As Stream = Nothing
        Dim strmWriter As StreamWriter = Nothing

        strFtpFile = Path.Combine(strUrl, strFileName)
        strTargetFile = Path.Combine(strTargetDirectory, strTargetFileName)

        Try
            ftpRequest = CType(WebRequest.Create(strFtpFile), FtpWebRequest)

            With ftpRequest
                .Credentials = New NetworkCredential(strLogin, strPassword)
                .UsePassive = False
                .Method = WebRequestMethods.Ftp.DownloadFile
            End With

            ftpResponse = CType(ftpRequest.GetResponse, FtpWebResponse)
            strmTarget = New FileStream(strTargetFile, FileMode.Create)
            strmWriter = New StreamWriter(strmTarget)
            strmResponse = ftpResponse.GetResponseStream()
            strmReader = New StreamReader(strmResponse, System.Text.Encoding.UTF8)
            strmWriter.Write(strmReader.ReadToEnd())

        Catch ex As Exception
            Throw ex

        Finally
            If strmReader IsNot Nothing Then
                strmReader.Close()
                strmReader.Dispose()
            End If

            If strmWriter IsNot Nothing Then
                strmWriter.Close()
                strmWriter.Dispose()
            End If

            If ftpResponse IsNot Nothing Then
                ftpResponse.Close()
                ftpResponse = Nothing
            End If

            If ftpRequest IsNot Nothing Then ftpRequest = Nothing
        End Try

        Return True

    End Function

Thanks for the code. I really appreciate it.

I want to download only txt files from 1 directory and then delete them on the FTP server after I have downloaded them.

Ok just add an If statement into that calling loop of files to parse the file name to get the file extensions, and then only download & delete the files you want. Here is a function for deleting the ftp file afterwards.

Code:

Public Function FtpDeleteFile(ByVal strUrl As String, ByVal strFileName As String, ByVal strLogin As String, ByVal strPassword As String, Optional ByVal blnConfirmPrompt As Boolean = False) As Boolean

        Dim ftpRequest As FtpWebRequest = Nothing
        Dim ftpResponse As FtpWebResponse = Nothing
        Dim strFile As String = ""

        'Delete Confirmation Prompt
        If blnConfirmPrompt = True Then
            Dim dlgResult As DialogResult = Nothing
            Dim strConfirm As String = ""

            strConfirm = String.Format("Delete File : {0}?", strFileName)
            dlgResult = MessageBox.Show(strConfirm, "Delete File", _
                                        MessageBoxButtons.YesNoCancel, _
                                        MessageBoxIcon.Question)
            If dlgResult <> DialogResult.Yes Then Return False
        End If

        Try
            strFile = Path.Combine(strUrl, strFileName)
            ftpRequest = CType(WebRequest.Create(strFile), FtpWebRequest)

            With ftpRequest
                .Credentials = New NetworkCredential(strLogin, strPassword)
                .Method = WebRequestMethods.Ftp.DeleteFile
            End With

            ftpResponse = CType(ftpRequest.GetResponse, FtpWebResponse)

        Catch ex As Exception
            Throw ex

        Finally
            If ftpResponse IsNot Nothing Then
                ftpResponse.Close()
                ftpResponse = Nothing
            End If

            If ftpRequest IsNot Nothing Then ftpRequest = Nothing
        End Try

        Return True

    End Function

Thanks Tom

I really appreciate your help.