Download file from FTP if it does not exist in a given list of local files

Question

I have an FTP server from which I want to download all the files that do not exist in my local directory.

I tried doing a For Next but I just can't get my head around it. I tried enumerating the files but as a result of doing it to both lists, I got an error. I think the error might be caused from cross checking the online files with an individual enumerated file from the local list. How do I eliminate this problem?

Link to FTPClient Class Code:

https://docs.google.com/file/d/0BxFwEuHe1g77TEw2ckZxVUlQdGM/edit?usp=sharing

All Code:

          Dim ftp As New FTPclient("ftp://www.ahpg.zxq.net", "eg", "eg")

    Dim dirList As FTPdirectory = ftp.ListDirectoryDetail("/")
    Dim result As List(Of String) = ftp.ListDirectory("/")
    For Each line As String In result
        FTPLBX.Items.Add(line)
    Next
    Dim str As String
    Dim locstr As String
    Dim res_numer As IEnumerator
    res_numer = result.GetEnumerator()
    Dim loclist As List(Of String) = New List(Of String) _
                                     (System.IO.Directory.EnumerateFiles("C:/Program Files/Business Elements/Recent Files"))
    Dim LOC_Enum As IEnumerator
    LOC_Enum = loclist.GetEnumerator
    Do While LOC_Enum.MoveNext
        locstr = (LOC_Enum.Current)
    Loop
    Do While (res_numer.MoveNext)
        str = (res_numer.Current)
    Loop

    For Each str In loclist
        If Not loclist.Contains(str) = True Then
            My.Computer.Network.DownloadFile("ftp://www.ahpg.zxq.net/ftpfiles/" & str.ToString, _
                                             "C:/Program Files/Business Elements/Recent Files/" & str.ToString, "eg", "eg")
            MessageBox.Show("Done ")
        End If
    Next

End Sub

What is your error then? Do you have any log? Include it to your question. — Sam R., Apr 03 '13 at 13:58
Put some breakpoints and debug your code. There should be some kind of error. Or at least post more code. Also, what is the `result` here? — Sam R., Apr 04 '13 at 07:12
@SamRad I start the event and it doesn't give me an error just no file is downloaded. — Kraxed, Apr 04 '13 at 13:51
@SamRad I updated the code with everything I have done. Also I included a link to the FTPClient class which I downloaded 3rd party from a forum a while back. — Kraxed, Apr 04 '13 at 17:02
Alright. I don't have access to my laptop now but I will take a look at it asap. — Sam R., Apr 04 '13 at 17:31
I have updated my answer. Check it out and report back if any problem. — Sam R., Apr 05 '13 at 08:04

Sam R. · Accepted Answer · 2013-04-05T11:50:21.100

I made it a little easier if it works for you. Here you go:

    ' Your instance of FTPClient
    Dim ftp As New FTPclient("ftp://www.ahpg.zxq.net", "eg", "eg")

    ' The path to destination folder (Local directory)
    Dim localDir As String = "C:/Program Files/Business Elements/Recent Files/"

    ' Lists all the file in the given directory of FTP server
    For Each file As FTPfileInfo In ftp.ListDirectoryDetail("/").GetFiles

        Try
            ftp.Download(file, localDir & file.Filename)

            ' The FTPClient class throws exception if the 
            ' file already exists in destination directory
        Catch e As ApplicationException
            Console.WriteLine(e.Message)
        End Try
    Next file

Note 1: I downloaded the FTPClient class from CodeProject but it's almost the same as the one you provided in the question.

Note 2: The FTPClient itself throws an exception if the file exists in your destination folder. So you don't need to bother comparing the files.

Note 3: Notice the trailing slash at the end of locadDir string. Without that, the file will be downloaded to the Business Element folder.

that's perfect didn't even think it would make the exception if it already existed. Thank you. — Kraxed, Apr 05 '13 at 13:49
What if there are sub directories in the parent directory, how do we download them? — Haseeb Zahid, Apr 14 '14 at 09:51

score 0 · Answer 2 · answered Apr 01 '13 at 11:47

0

Write a sub-method, let's call it IsExistedInLocal to check if the file from ftp is already in your local or not. If it is, ignore and move on to the next one; if it is not not, download the file.I assume you know all the detail so pseudo code should be okay

for each FTP_file in FTP_FilesList
  if not IsExistedInLocal(FTP_file) then
    download the file to local
  end if
next

answered Apr 01 '13 at 11:47

Quannt

2,035
2
21
29

How would I create the class IsExistedInLocal? @Quannt – Kraxed Apr 01 '13 at 12:50

score 0 · Answer 3 · answered Apr 04 '13 at 18:16

In the for loop you are taking each entry in the list and then checking that same list doesn't have that element. Your if condition will never be true and never reach the DownloadFile statement.

For Each str In loclist
    If Not loclist.Contains(str) = True Then
        My.Computer.Network.DownloadFile("ftp://www.ahpg.zxq.net/ftpfiles/" & str.ToString, _
                                         "C:/Program Files/Business Elements/Recent Files/" & str.ToString, "eg", "eg")
        MessageBox.Show("Done ")
    End If
Next

Could you give me an example on how you would go about doing it? I am a bit stuck. — Kraxed, Apr 04 '13 at 18:18

Download file from FTP if it does not exist in a given list of local files

3 Answers3

Linked