SOURCE INSTALLER OU DÉINSTALLER UN PROGRAMME.

L'INSTALEUR:


Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.OpenTextFile("ReadMe.dia")
Set EFic = FSys.OpenTextFile("ProgName.dia") 
E = EFic.ReadAll
Contenu = MonFic.ReadAll
ProgName = E
readme = MsgBox(Contenu, vbInformation, "Read Me")
Install = MsgBox("Bienvenue !" & vbCrLf & "Ce programme va installer le logiciel " & ProgName & ". Voulez vous continuer ?", vbQuestion+vbYesNo,"Installation de " & ProgName)
If Install - vbNo Then

If Install = vbYes Then
    pathprog = MsgBox("Etape 1 : Repertoire de Destination :" & vbCrLf & vbCrLf & "Ce programme va copier le programme & ProgName dans le repertoire C:\Program Files\& ProgName de votre disque dur." & vbCrLf & "Voulez-vous changez de repertoire de destination ?", vbQuestion+vbYesNo,"Installation de " & ProgName)
   If pathprog = vbYes Then
       path = InputBox("Tapez le nouveau dossier de destination :","Installation de " & ProgName,"C:\Program Files\" & ProgName & "\")
    End If
If pathprog = vbNo Then
       path = "C:\Program Files\" & ProgName & "\"
    End If
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Prog = WshShell.SpecialFolders("Programs")
    Bureau = WshShell.SpecialFolders("Desktop")
      ' Installation des fichiers internes
      Fso.CreateFolder(path)
      Fso.CopyFile ProgName & ".exe" ,path & ProgName & ".exe"
      ' Mise en place des raccourcis
       Set Racc = WshShell.CreateShortcut(Prog & "/" & racrep & ".lnk")
       Racc.TargetPath=path & ProgName & ".exe"
       Racc.Save
       Set Racc = WshShell.CreateShortcut(Bureau & "/" & racrep & ".lnk")
       Racc.TargetPath=path & ProgName & ".exe"
       Racc.Save
MsgBox "Le programme a été installer avec succès.",0,"Installation de " & ProgName
End If
End If





LE DÉSINSTALEUR





Set FSys = CreateObject("Scripting.FileSystemObject") 
Set EFic = FSys.OpenTextFile("ProgName.dia", 1) 
E = EFic.ReadAll
ProgName = E
Uninstall = MsgBox("Bienvenue !" & vbCrLf & "Ce programme va désinstaller le logiciel & ProgName &. Voulez vous continuer ?", vbQuestion+vbYesNo,"Désinstallation de " & ProgName)
If Uninstall - vbNo Then

If Uninstall = vbYes Then
    pathprog = MsgBox("Etape 1 : Repertoire de Destination :" & vbCrLf & vbCrLf & "Ce programme va suprimer le programme " & ProgName & " du repertoire C:\Program Files\" & ProgName & " de votre disque dur." & vbCrLf & "Voulez-vous changez le répertoire a suprimer ?", vbQuestion+vbYesNo,"Désinstallation de " & ProgName)
   Dim fso, fldr 
   If pathprog = vbYes Then
     fldr = inputbox ("Dossier a supprimer." ,"" ,"c:\Program Files\DiscoverPlus\")
    End If
If pathprog = vbNo Then
     fldr = "C:\Program Files\DiscoverPlus\"
    End If
Set fso = CreateObject("Scripting.FileSystemObject")
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Prog = WshShell.SpecialFolders("Programs")
    Bureau = WshShell.SpecialFolders("Desktop")
      ' Installation des fichiers internes
      Fso.DeleteFolder(fldr)
      ' Suprimer les racourcis
      Fso.DeleteFile(Prog & ProgName & ".lnk")
      Fso.DeleteFile(Bureau & ProgName & ".lnk")
       
MsgBox "Le programme a été désinstaller avec succès. Veuillez redémarer votre ordinateur.",0,"Désinstallation de " & ProgName
End If
End If 

Télécharger le zip

08 février 2006 00:19:02 :

J'ai corriguer quelques bogs.