Discussion :

[Lechette]

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!

[Lechette]

Personne n'a d'idée? Je n'ai rien trouvé sur le net, ni sur l'aide en ligne....

[youssef619]

Salam,
d'abord il est préférable avant de compléter un code de ne pas utilisé le "Try...Catch" pour voir le message d'erreur et l'endroit ou il plant votre application.
la 2eme chose c'est que je n'ai pas bien compris ton problème mais je crois que pour renommer un dossier c'est mieux d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Computer.FileSystem.RenameDirectory("chemin du répertoire", "nouveau nom")

Bonne chance

[Lechette]

Merci de ta réponse
Ok je vais utiliser ta commande c'est plus simple.

Pour mieux m'expliquer: je joint une image

Je veux que quand on clique sur moder, il y ait modification du nom des dossiers correspondant aux cases cochées.(apparition d'un "-" au début du nom)
J'espère avoir été plus clair

Autre soucis:J'ai le chemin d'accès du dossier racine dans my.settings, comment je peut faire pour dire "on va travailler dans my.settings.monrépertoire, prendre ce dossier et le renommer ainsi"?