Private Sub modif_config_xml(ByVal Start As Boolean)
Dim path As String = "C:\ProgramFiles(x86)\Dofus 2" '<--------------------------- ici le chemin du jeu
Dim config_xml As String = path & "\app\config.xml"
Dim config_bot As String = path & "\app\config.xml.bot"
If Start Then
'Shell(INI.ReadString("Path", "Path") & "\app\dofusmod.exe") ' <-------------------------- a commenter , cette ligne sert a rien
If File.Exists(config_xml & ".jeu") Then Exit Sub
If Not File.Exists(config_bot) Then File.Copy(Application.StartupPath & "\config.xml.bot", config_bot)
Rename(config_xml, config_xml & ".jeu")
Rename(config_bot, config_bot.Replace(".bot", "")) ' <------------------------- la y'a plus le . de .bot (pourquoi ??)
Else
Rename(config_xml, config_xml & ".bot")
Rename(config_xml & ".jeu", config_xml.Replace(".jeu", ""))
End If
End Sub