Oudere bestanden verwijderen

[luck7]

Hallo

ik heb mijn programma zo gemaakt dat het vanzelf updates download en installeert. dit werkt prima.
het probleem is alleen dat na het updaten de oude versie word verwijdert, maar wat nou als er inmiddels al 2 updates zijn geweest.
ik heb namelijk iedere programma in my.settings.CurrVersion een nummer gegeven en na het updaten verwijdert hij dus alle .exe die die versie - 1 hebben.

maar wat dus als er inmiddels 2 updates zijn.
voorbeeld. de nieuwste versie is 10, de oude is 8, maar dan verwijdert hij die niet omdat hij alleen zoekt naar versie 9.

daarom mijn vraag, kan ik mijn code zo aanpassen dat hij alles ONDER de huidige versie verwijdert, enniet alleen die Versie die 1 onder de huidige is.

beetje lastig ;P

hier de code...

     Dim startup As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)

        If My.Computer.FileSystem.FileExists(startup & "\RemoteServerConnection" & (My.Settings.CurrVersion - 1) & ".exe") Then
            Kill(startup & "\RemoteServerConnection" & (My.Settings.CurrVersion - 1) & ".exe")
        End If

hoop dat het duidelijk is zo
MVG
Luck Hermsen

 

[luck7]

ben er zelf uit gekomen:

 Dim startup As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)

        For Each FoundFile As String In My.Computer.FileSystem.GetFiles(startup)

            If FoundFile.Contains("RemoteServerConnection") = True AndAlso FoundFile.Contains("RemoteServerConnection" & My.Settings.CurrVersion) = False Then
                MsgBox(FoundFile)
                Kill(FoundFile)

            End If

        Next