Salut
Je me suis installé VB2010express et mis au VB, j'ai bien essayer le C et le python il y a quelques années mais trop dur tout seul sans aucune notion de programmation.
Par contre VB c'est quand même plus simple, puisque j'ai réussi a faire un logiciel qui ne fait presque rien mais qui le fait bien
Vous l'aurez compris, j'y connais rien en programmation et j'ai besoin que quelqu’un valide mon code en cas de grosse connerie.

ProfilManager ou MulliManager a choisir
Permet de sauvegarder 3 versions différente des 2 fichier MULLIGATAWNY présent dans SavedGames
Et de les restaurer facilement
Ce qui permettrai de passer facilement d'une config palette a une config boite H par exemple
Un bouton restore original profile en cas de souci
Rien d'autre...
EDIT: avec image c'est mieux



Voila le code, compilé pour .NET 3.5 (simple précision), ce code fonctionne en l’état, mais n'est surement pas bien concu...

Imports System.IO
Imports System.IO.File

Public Class Form1
   

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       'Procedure d'initialisation de ProfilManager,
       'verifie la presence de richard burns rally.exe
       'cree le dossier ProfilManager et ses sous dossiers
       'sauvegarde le profil MULLIGATANWY dans le dossier OriginalProfil
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       '
       'C'est parti!!
       'verifie la presence de rbr.exe dans le dossier courant
       If System.IO.File.Exists("richardburnsrally_SSE.exe") = False Then
           MsgBox("launch the application in the folder richard burns rally")
           Close()
       Else
           'verifie si le dossier ProfilManager existe
           If System.IO.Directory.Exists("ProfilManager") = False Then
               ''si non cree le dossier ProfilManager et ses sous dossiers
               System.IO.Directory.CreateDirectory("ProfilManager")
               System.IO.Directory.CreateDirectory("ProfilManager\OriginalProfil")
               System.IO.Directory.CreateDirectory("ProfilManager\Profil1")
               System.IO.Directory.CreateDirectory("ProfilManager\Profil2")
               System.IO.Directory.CreateDirectory("ProfilManager\Profil3")
               Dim value As String
               value = Application.StartupPath

               ''Création d'un flux d'écriture
               Dim installpath As New StreamWriter(value & "\ProfilManager\installpath.txt")
               'écriture et fermeture
               installpath.WriteLine(value)
               installpath.Close()

               'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans OriginalProfil
               If Exists(value & "\SavedGames\pfMULLIGATAWNY.acm") Then
                   System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.acm", ".\ProfilManager\OriginalProfil\pfMULLIGATAWNY.acm")
               End If
               If Exists(value & "\SavedGames\pfMULLIGATAWNY.rbr") Then
                   System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.rbr", ".\ProfilManager\OriginalProfil\pfMULLIGATAWNY.rbr")
               End If
           End If
       End If

   End Sub

   'ATTENTE DE L'UTILISATEUR

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans Profil1
       If Exists(value & "\ProfilManager\Profil1\pfMULLIGATAWNY.acm") Then
           System.IO.File.Delete(".\ProfilManager\Profil1\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\ProfilManager\Profil1\pfMULLIGATAWNY.rbr")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.acm") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.acm", ".\ProfilManager\Profil1\pfMULLIGATAWNY.acm")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.rbr") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.rbr", ".\ProfilManager\Profil1\pfMULLIGATAWNY.rbr")
       End If
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans Profil2
       If Exists(value & "\ProfilManager\Profil2\pfMULLIGATAWNY.acm") Then
           System.IO.File.Delete(".\ProfilManager\Profil2\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\ProfilManager\Profil2\pfMULLIGATAWNY.rbr")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.acm") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.acm", ".\ProfilManager\Profil2\pfMULLIGATAWNY.acm")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.rbr") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.rbr", ".\ProfilManager\Profil2\pfMULLIGATAWNY.rbr")
       End If
   End Sub

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans Profil3
       If Exists(value & "\ProfilManager\Profil3\pfMULLIGATAWNY.acm") Then
           System.IO.File.Delete(".\ProfilManager\Profil3\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\ProfilManager\Profil3\pfMULLIGATAWNY.rbr")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.acm") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.acm", ".\ProfilManager\Profil3\pfMULLIGATAWNY.acm")
       End If

       If Exists(value & "\SavedGames\pfMULLIGATAWNY.rbr") Then
           System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.rbr", ".\ProfilManager\Profil3\pfMULLIGATAWNY.rbr")
       End If
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de Profil1
       If System.IO.File.Exists(".\ProfilManager\Profil1\pfMULLIGATAWNY.acm") = False Then
           MsgBox("You have to backup a profile before")
           'Close()
       Else

           'copie les fichiers
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.rbr")
           System.IO.File.Copy(".\ProfilManager\Profil1\pfMULLIGATAWNY.acm", ".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Copy(".\ProfilManager\Profil1\pfMULLIGATAWNY.rbr", ".\SavedGames\pfMULLIGATAWNY.rbr")
       End If

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de Profil2
       If System.IO.File.Exists(".\ProfilManager\Profil2\pfMULLIGATAWNY.acm") = False Then
           MsgBox("You have to backup a profile before")
           'Close()
       Else

           'copie les fichiers
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.rbr")
           System.IO.File.Copy(".\ProfilManager\Profil2\pfMULLIGATAWNY.acm", ".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Copy(".\ProfilManager\Profil2\pfMULLIGATAWNY.rbr", ".\SavedGames\pfMULLIGATAWNY.rbr")
       End If
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de Profil3
       If System.IO.File.Exists(".\ProfilManager\Profil3\pfMULLIGATAWNY.acm") = False Then
           MsgBox("You have to backup a profile before")
           'Close()
       Else

           'copie les fichiers
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.rbr")
           System.IO.File.Copy(".\ProfilManager\Profil3\pfMULLIGATAWNY.acm", ".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Copy(".\ProfilManager\Profil3\pfMULLIGATAWNY.rbr", ".\SavedGames\pfMULLIGATAWNY.rbr")
       End If
   End Sub

   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Dim value As String
       value = Application.StartupPath
       'detecte la presence de OriginalProfil
       If System.IO.File.Exists(".\ProfilManager\OriginalProfil\pfMULLIGATAWNY.acm") = False Then
           MsgBox("Original profile missing")
           'Close()
       Else

           'copie les fichiers
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\SavedGames\pfMULLIGATAWNY.rbr")
           System.IO.File.Copy(".\ProfilManager\OriginalProfil\pfMULLIGATAWNY.acm", ".\SavedGames\pfMULLIGATAWNY.acm")
           System.IO.File.Copy(".\ProfilManager\OriginalProfil\pfMULLIGATAWNY.rbr", ".\SavedGames\pfMULLIGATAWNY.rbr")
       End If
   End Sub
End Class

Es-tu sûr que ça fonctionne ? Parce qu'en restaurant mon profil après chaque réinstallation, les attributions de commandes de mon volant sont toujours réinitialisées. Les paramètres de filtres restent, mais pas les boutons.
Peut-être est-ce parce qu'en général, quand je réinstalle le jeu, c'est que j'ai formater, donc réinstaller Profiler, mais c'est pas utile d'installer un profiler pour accéder aux réglages d'attribution de bouton du volant normalement, puisque le volant est détecté par windows. Le retour de force non, mais le volant lui-même oui

Je n'ai pas fait d'essai poussé, et pas encore verifier le coup des commandes memorisées etc
Mais j'attendai justement des avis a ce sujet, merci fifou

Pour ma part, il me semble que rscenter2013 a bien restauré mon profil 2012, et si l'utilitaire de sauvegarde de Phil63 fonctionne, le mien ne fera ni plus ni moins
Dans ton cas ca ne s'applique pas,  ProfilManager est destiné a être utilisé couramment, pour passer d'une config a une autre, on pense aux commandes volant boutons etc
mais il y a aussi le son,notes etc
MAIS ce n'est pas un utilitaire de sauvegarde d'une année a l'autre

Oui je comprend. Ca permet de sauvegarder plusieurs profils différents.

C'est néanmoins une bonne initiative, car il faut bien commencer par quelque chose  

quelque chose de simple surtout
merci fifou

oui, ça peut fonctionner...

tu devrais faire une fonction pour ne pas avoir à taper toujours le même texte sur tes boutons.

Le maître est là  
Et Phil te dira que VB ça vaut rien, et qu'il faut travailler avec Delphy  

Oui, il me l'a déjà dit  



tu me parle chinoi la, mais je vais regarder ca...les fonction

Ça semble être un très bon début.

Je vais avoir du mal à trouver le temps de regarder correctement le code, mais si tu bloques à un endroits précis, fais signe ici et on essaiera de t'aider.  

En attendant il fait ce que tu veux ton prog ou pas ?  

L'oeil intéressé  

No souci t’inquiète
Le prog lui fonctionne, j'ai pour l'instant tester sur des fichier vide renommé, pas d'exception ou bug
faut que je teste en réel maintenant, mais comme je savais pas si ces 2 fichiers MULLIGATAWNY pouvait interférer avec rscenter j'ai préférer en parler avant

-- Mer 22 Mai 2013 23:12 --



C'est bon c'est assimilé, en effet c'est bien plus pratique comme ca
MAIS
Comment j'attribue la variable du chemin Profil1 2 ou 3, en fonction du bouton qui a ete appuyé??
4 heure que je cherche
Voila en gros ou je cale

Dim value As String
      value = Application.StartupPath
       Dim prof As String
       prof = "nul"

''c'est ce genre de boucle que je sais pas faire
       If  Button 4 5 ou 6 click  Then prof = "Profil1" ou Profil2 ou Profil3

     
       'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans le profil selectionné
       If Exists(value & "\ProfilManager\" & prof & "\pfMULLIGATAWNY.acm") Then
           System.IO.File.Delete(".\ProfilManager\" & prof & "\pfMULLIGATAWNY.acm")
           System.IO.File.Delete(".\ProfilManager\" & prof & "\pfMULLIGATAWNY.rbr")
       End If

La fonction dont parle Jim c'est pour faire des tâches répétitives. J'ai pas d'exemple en tête mais tu trouveras sans soucis. La différence entre une fonction et une sub c'est que la fonction renvoie une valeur à la fin. C'est tout ce que j'ai retenu de ma formation mais je crois que je vais avoir besoin de m'y remettre bientôt de toute façon (je suis en train de faire un programme pour un client et je pense que je vais avoir besoin d'une fonction aussi).

Autre petite chose pour simplifier, je suis presque sûr qu'à partir du moment où tu as importé les espaces de nom (Imports System.IO et les autres) tu n'as plus besoin de repréciser l'espace de noms quand tu appelles la fonction concernée. Par exemple pour la création de ton dossier, au lieu de remettre System.IO.Directory.CreateDirectory(), tu devrais pouvoir mettre directement Directory.CreateDirectory(). A vérifier mais je crois que ça marche (de toute façon tu le verras vite si ça ne marche pas).


Pour revenir sur la fonction dans ton cas, je crois qu'il faudrait faire non pas une fonction mais une méthode (la fonction renvoie une valeur, pas la méthode), ce qui donnerait un truc du genre :

Public Sub Profil (ByVal profil as string)

Dim value As String
      value = Application.StartupPath
      'detecte la presence de MULLIGATAWNY et fait une sauvegarde dans profil
      If Exists(value & "\ProfilManager\Profil3\pfMULLIGATAWNY.acm") Then
          System.IO.File.Delete(".\ProfilManager\profil\pfMULLIGATAWNY.acm")
          System.IO.File.Delete(".\ProfilManager\profil\pfMULLIGATAWNY.rbr")
      End If

      If Exists(value & "\SavedGames\pfMULLIGATAWNY.acm") Then
          System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.acm", ".\ProfilManager\profil\pfMULLIGATAWNY.acm")
      End If

      If Exists(value & "\SavedGames\pfMULLIGATAWNY.rbr") Then
          System.IO.File.Copy(".\SavedGames\pfMULLIGATAWNY.rbr", ".\ProfilManager\profil\pfMULLIGATAWNY.rbr")
      End If
End Sub


Et ensuite dans tes boutons au lieu de mettre ce code, tu mets simplement
Call Profil("Profil1")

L'idée globale c'est ça, la mise en forme c'est probablement pas tout à fait ça (d'autant que la combinaison des textes dans le nom de répertoire ne doit pas fonctionner si on met directement la variable comme j'ai fait en vert).
Donc tu écris une méthode qui dépend d'une variable (la variable profil as String) et dans tes boutons tu appelles cette méthode avec comme argument le nom du profil auquel elle doit s'appliquer.

Encore une fois je ne suis pas complètement sûr de mon coup et il vaut mieux que tu te renseignes un peu aussi de ton côté et attende des infos de Jim, mais dans l'idée générale c'est ça.

Oui c'est ce que j'ai compris, la en l'occurence copier 3x les memes fichiers a 3 endroits differents, pas indispensable pour ce prog mais formateur
Et en effet on peut virer System.IO apparemment

EDIT:oups j'avai pas vu ton post en entier, je regarde tout ca merci  

oui, c'est comme ça

Fonctionne impeccable merci Flat, je vais me renseigner sur le sujet car j'ai pas piger le principe  
En tout cas, le code est plus lisible qu'au depart, et plus simple a modifier maintenant  

todo
Je voudrai afficher une petite fenetre pour confirmer l'ecrasement du Profil1 par ex
Et faire en sorte que ces petite fenetres n'apparaissent pas au milieu de l’écran

Mais je verrai ca demain, merci de votre aide