none
Ayuda para descargar datos RRS feed

  • Debate general

  • Pues vereis... Estoy desarrollando un programa que descarge imagenes de un ftp, las cuales las hace una cama, el FTP esta dentro del videogravador, la cuestion es que me gustaria, si puede ser, que me ayudaseis para saber como seleccionar una parte de la matricula.

    Ya tengo el codigo para que se conecte al FTP, me haga un listado de este y me descargue las imagenes que lista, el problema es que yo no quiero que me descargue imagenes repetidas, quiero que me descargue 1 vez, la imagen que mas se repita en un intervalo de 10 segundos, el nombre de la imagen es asi: 20160411175715 es decir año mes dia hora minutos segundos milesimas pero todo junto, adjunto el codigo que tengo hasta ahora:

    Imports System.Net.FtpWebRequest
    Imports System.Net
    Imports System.IO

    Public Class FTP
        Public Sub Descargar(ByVal valor As String)
            Dim RutaDato As String = "ftp://direccionftp/result/" & valor
            Dim RutaLocal As String = "C:\direccionlocal\" & valor
            My.Computer.Network.DownloadFile(RutaDato, RutaLocal, "user", "password")
        End Sub

        Sub Lista(ByVal dir As String, ByVal user As String, ByVal pass As String)
            Try
                Dim list As ListViewItem
                Dim ftp As FtpWebRequest = CType(FtpWebRequest.Create(dir), FtpWebRequest)
                Dim cred As New NetworkCredential(user, pass)
                ftp.Credentials = cred
                ftp.KeepAlive = False
                ftp.AuthenticationLevel = Security.AuthenticationLevel.MutualAuthRequested
                ftp.Method = WebRequestMethods.Ftp.ListDirectoryDetails
                Dim ftpresp As FtpWebResponse = DirectCast(ftp.GetResponse, FtpWebResponse)

                Dim sreader As New IO.StreamReader(ftpresp.GetResponseStream)
                ListView1.Items.Clear()
                While Not sreader.Peek = -1
                    Dim ftpList As String() = sreader.ReadLine.Split(" ")
                    Dim ftpfile As String = ftpList(ftpList.GetUpperBound(0))

                    list = ListView1.Items.Add(ftpfile)
                    Descargar(ftpList(ftpList.GetUpperBound(0)))

                End While
                ftpresp.Close()

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End Sub

        Private Sub FTP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Lista("ftp://direccionftp/result/", "user", "password")
        End Sub


    End Class

    Gracias de antemano y un saludo!



    lunes, 11 de abril de 2016 16:01