Posted on: 5/4/2011 2:02:08 AM | Views : 251


Dim ftp As New FTPclient(host, username, password) Dim GetDirectoryList As List(Of String) = ftp.ListDirectory(DirectoryName) If GetDirectoryList.Count > 0 Then For i As Int32 = 0 To GetDirectoryList.Count - 1 Dim filelocation As String = (ServerPath & DirectoryName & GetDirectoryList(i).ToString()) If (System.IO.File.Exists(filelocation)) Then System.IO.File.Delete(filelocation) End If ftp.Download(DirectoryName & GetDirectoryList(i).ToString(), filelocation, True) ftp = Nothing If (System.IO.File.Exists(filelocation)) Then Using sZip As Ionic.Zip.ZipFile = Ionic.Zip.ZipFile.Read(filelocation) For Each e As ZipEntry In sZip ...

Go to the complete details ...