Bonour à tous!

J'ai une checkedlistbox avec une20aine d'éléments. Quand on clique sur un bouton il y a controle des cases cochées, et modifications de certains noms de dossier.
J'ai fait ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
If CLB_Environnement.CheckedItems.Count <> 0 Then
 
            Dim x As Integer
            Dim Ancien, Nouveau As String
            For x = 0 To CLB_Environnement.CheckedItems.Count - 1
                Try
                    If x = 0 Then
                        Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_SmokeFire_Effects lower resolution"
                        Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_SmokeFire_Effects lower resolution"
                    Else
                        Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_SmokeFire_Effects lower resolution"
                        Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_SmokeFire_Effects lower resolution"
                    End If
                    Rename(Ancien, Nouveau)
                Catch ex As Exception
                End Try
 
                Try
                    If x = 1 Then
                        Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_Weapon_Effects"
                        Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_Weapon_Effects"
                    Else
                        Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_Weapon_Effects"
                        Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_Weapon_Effects"
                    End If
                    Rename(Ancien, Nouveau)
                Catch ex As Exception
                End Try
 
            Next x
 
        End If
J'ai aussi tenté comme ca:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If CLB_Environnement.CheckedItems.Count <> 0 Then
            Dim x As Integer
            Dim Ancien, Nouveau As String
            Try
                If x = 0 Then
                    Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_SmokeFire_Effects lower resolution"
                    Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_SmokeFire_Effects lower resolution"
                Else
                    Ancien = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\3rdeye_SmokeFire_Effects lower resolution"
                    Nouveau = "C:\Program Files\Ubisoft\IL-2 Sturmovik 1946\MODS\-3rdeye_SmokeFire_Effects lower resolution"
                End If
                Rename(Ancien, Nouveau)
            Catch ex As Exception
            End Try
 
 
        End If
Ca ne fonctionne pas et je ne comprends pas pourquoi....J'en suis à me demander si je ne vais pas faire une par une des checkbox...

Merci d'avance de votre aide!