Visual basic 2010 programma updater lukt niet via ftp

Status
Niet open voor verdere reacties.
helemaal geen;)

Ik heb nu mijn programma naar versie 9 gezet(niet op de ftp server) en dan geeft hij wel een melding dat er update beschikbaar is maar bijvoorbeeld versie 8 als ik die open dat geef hij geen melding, omdat er staat

Code: 
My.Application.Info.Version.Major + 1
 
Laatst bewerkt:
Nu lukt het wel met deze code maar het programma start langzamer op daardoor:

Code: 
Dim client As New Ftp
        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 1
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 2 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 2 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 2
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try

        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 3 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 3 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 3
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 4 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 4 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 4
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 5 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 5 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 5
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 6 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 6 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 6
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try

        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 7 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 7 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 7
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 8 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 8 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 8
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 9 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 9 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 9
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try

        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 10 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 10 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 10
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try


        Try
            'maak verbinding
            client.Connect("adres")
            client.Login("username", "hierhetwachtwoord")
            client.ChangeDirectory("directory")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                If item.ToString = "Cviewer_" & My.Application.Info.Version.Major + 11 & ".exe" Then
                    'prompt
                    Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                    If a = vbYes Then
                        'download naar bureaublad
                        client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 11 & ".exe", My.Computer.FileSystem.SpecialDirectories.Desktop & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                        MsgBox("De update is gedownload naar het bureaublad, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                    End If
                    Exit For
                Else
                    'als het de laatste is -> prompt
                    If aant = list.Count Then

                    Else
                        aant += 11
                    End If
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try

Edit: er zit niet zoveel verschil in de opstarttijd op mijn pc dan.
 
Laatst bewerkt:
codGmer zei:
helemaal geen;)

Ik heb nu mijn programma naar versie 9 gezet(niet op de ftp server) en dan geeft hij wel een melding dat er update beschikbaar is maar bijvoorbeeld versie 8 als ik die open dat geef hij geen melding, omdat er staat

Code: 
My.Application.Info.Version.Major + 1
Klik om te vergroten...

Maar dan moet je wel alle versies op de server laten staan natuurlijk, anders werkt het niet met oudere versies ;)
 
Als je bijvoorbeeld versie 7 hebt en je download de update via ftp updater dan krijg je versie 8 maar ik wil graag dat als je versie 7 hebt dat hij dan automatisch de laatste versie download nu versie 11.
 
Laatst bewerkt:
codGmer zei:
Als je bijvoorbeeld versie 7 hebt en je download de update via ftp updater dan krijg je versie 8 maar ik wil graag dat als je versie 7 hebt dat hij dan automatisch de laatste versie download nu versie 11.
Klik om te vergroten...

Code: 
  Dim all_files As New System.Collections.Specialized.StringCollection

        Dim a As String() = {"Cviewer_1.exe", "Cviewer_2.exe", "Cviewer_3.exe"}
        For Each item In a
            If item > "Cviewer_" & My.Application.Info.Version.Major & ".exe" Then
                all_files.Add(item)
            End If
        Next

          Try
            Dim LaatsteVersie As String = all_files.Item(all_files.Count - 1)
        Catch ex As Exception
            MsgBox("Geen updates beschikbaar.", 46 + 4096, "Cviewer")
        End Try

Ik probeer hier je situatie na te bootsen. In de array (a) stellen de items alle .EXE's op de server voor. Alle versies die groter zijn dan de huidige versie zet-ie in 'all_files', een StringCollection. Daarna neemt hij de laatst ingevoerde string uit 'all_files'.

Als het goed is heb je dan de laatste versie. Als er geen laatste versie is dan komt er niets in all_files en krijg je dus een exception en krijg je een MessageBox. Je kan nu je code invoegen dat-ie de laatste versie download.

Snappie?
 
Laatst bewerkt:
Ja ik snap de code wel, maar waar moet ik het tussen zetten;)

Zo? even snel ertussen gezet.
Code: 
Dim client As New Ftp
        Try
            'maak verbinding
            client.Connect("")
            client.Login("", "")
            client.ChangeDirectory("/public_html/cviewer/")

            'verkrijg lijst met items
            Dim list As FtpList = client.GetList()
            Dim item As FtpItem

            'declareer aant (dat is om te bepalen of het de laatste is)
            Dim aant As Integer = 1

            'gaat lijst af
            For Each item In list

                'als het de juiste update is, geef dan een prompt
                Dim all_files As New System.Collections.Specialized.StringCollection

                Dim a As String() = {"Cviewer_1.exe", "Cviewer_2.exe", "Cviewer_3.exe"}
                For Each item In a
                    If item > "Cviewer_" & My.Application.Info.Version.Major & ".exe" Then
                        all_files.Add(item)
                    End If
                Next
                'prompt
                Dim a = MsgBox("Er is een nieuwe update beschikbaar. Wilt u deze downloaden?", 64 + 4096 + 4, "Nieuwe Update beschikbaar")
                If a = vbYes Then
                    'download naar bureaublad
                    client.GetFile("Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe", Application.StartupPath & "\Cviewer_" & My.Application.Info.Version.Major + 1 & ".exe")
                    MsgBox("De update is gedownload naar de map waar Cviewer zich bevindt, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
                End If
                Exit For
                Else
                'als het de laatste is -> prompt
                If aant = list.Count Then

                Else
                    aant += 1
                End If
            Next item
        Catch ex As Exception
            client.Disconnect()
            MsgBox("Er is een fout opgetreden: " & ex.Message, 16 + 4096, "Error")
        Finally
            client.Disconnect()
        End Try
 
Laatst bewerkt:
Als ik jou was zou ik snel je wachtwoord onzichtbaar maken!! :eek:

Ik zal de code even optimaliseren voor je. ;)
 
Code: 
Dim all_files As New System.Collections.Specialized.StringCollection

		For Each item In List
 If item > "Cviewer_" & My.Application.Info.Version.Major & ".exe" Then
                        all_files.Add(item)
                    End If
                Next

 Try
            Dim LaatsteVersie As String = all_files.Item(all_files.Count - 1)
            
              client.GetFile(LaatsteVersie, Application.StartupPath & "\" &LaatsteVersie)
                    MsgBox("De update is gedownload naar de map waar Cviewer zich bevindt, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")


        Catch ex As Exception
            MsgBox("Geen updates beschikbaar.", 46 + 4096, "Cviewer")
        End Try

Test jij even of-ie werkt?

Edit: Sorry voor mijn uitlijning, heb het ff in kladblok geschreven. :eek:
 
Laatst bewerkt:
er staat deze error:

error BC32042: Too few type arguments to 'System.Collections.Generic.List(Of T)'. bij deze regel: For Each item In List
 
Heb je hem wel goed geplaatst?

Ik bedoel deze list en item:

Code: 
 Dim list As FtpList = client.GetList()
            Dim item As FtpItem

Post even de code (in ieder geval het deel wat je net postte) dan kan ik even kijken of je het goed hebt geplaatst. Waarschijnlijk ziet-ie list als iets anders dan die hierboven.
 
screen

Als ik
Code: 
Dim item As FtpItem
weglaat dan staat er geen error meer maar dan krijg ik een error bij de startup.

Code: 
all_files.Add([U]item[/U])
wordt ook blauw onderstreept
 
Laatst bewerkt:
Probeer eens Item.Tostring (in het For Each-blok).
 
Dat Rebex gebeuren is wel een handige collectie om te hebben. Ik vind het alleen onbegrijpelijk dat die gasten van Rebex goudgeld vragen voor een paar dll'etjes.
 
Item is niet meer onderstreept maar de regel
Code: 
item > "Cviewer_" & My.Application.Info.Version.Major & ".exe"
wel nog
 
De code doet het wel maar het doet alleen het verkeerde,

als ik Versie 11 open download hij meteen versie 9 dat klopt niet.


Code: 
Dim client As New Ftp
        'maak verbinding
        client.Connect("
        client.Login("1", "")
        client.ChangeDirectory("")
        Dim list As FtpList = client.GetList()
        Dim item As FtpItem
        Dim all_files As New System.Collections.Specialized.StringCollection

        For Each item In list
            If item.ToString > "Cviewer_" & My.Application.Info.Version.Major & ".exe" Then
                all_files.Add(item.ToString)
            End If
        Next

        Try
            Dim LaatsteVersie As String = all_files.Item(all_files.Count - 1)
            client.GetFile(LaatsteVersie, Application.StartupPath & "\" & LaatsteVersie)
            MsgBox("De update is gedownload naar de map waar Cviewer zich bevindt, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
        Catch ex As Exception

        End Try
Even off-topic:

Hoe hebben jullie visual basic geleert?
 
Laatst bewerkt:
Ik vind het alleen onbegrijpelijk dat die gasten van Rebex goudgeld vragen voor een paar dll'etjes.
Klik om te vergroten...
;)


Hoe hebben jullie visual basic geleerd?
Klik om te vergroten...

Gewoon veel oefenen :thumb:, hoezo?

De code doet het wel maar het doet alleen het verkeerde,
Klik om te vergroten...

Bij mij deed de test (eerder gepost) het prima. Ik zal proberen zo snel mogelijk een oplossing te vinden.
 
Oei!!! Je wachtwoord ben je weer vergeten weg te halen!! :eek:

Edit: Sorry voor dubbelpost :eek:
 
Ik heb het getest, en alles werkt prima! Dit is mijn code:

Code: 
 Dim client As New Ftp
        'maak verbinding
        client.Connect("")
        client.Login("", "")
        client.ChangeDirectory("")
        Dim list As FtpList = client.GetList()
        Dim item As FtpItem
        Dim all_files As New System.Collections.Specialized.StringCollection

        For Each item In list
            If item.ToString > "Cviewer_" & My.Application.Info.Version.Major & ".exe" Then
                all_files.Add(item.ToString)
            End If
        Next

        Try
            Dim LaatsteVersie As String = all_files.Item(all_files.Count - 1)
            If Not LaatsteVersie = My.Application.Info.Version.Major Then
                client.GetFile(LaatsteVersie, Application.StartupPath & "\" & LaatsteVersie)
                MsgBox("De update is gedownload naar de map waar Cviewer zich bevindt, vergeet niet de oude versie te verwijderen.", 64 + 4096, "Update gedownload")
            End If
        Catch ex As Exception

        End Try

Ik heb alleen dit toegevoegd:
Code: 
If Not LaatsteVersie = My.Application.Info.Version.Major Then

anders download-ie zichzelf nog een keer (dezelfde versie).

Als je er nog steeds niet uitkomt, post dan een keer je (update-)code. Dan wil ik hem er op de juiste plek inzetten. :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan