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 |