Citation :
Option Explicit
'Passage concernant la copie des dossiers
Dim ORepertoire
Dim Source
Dim Destination
Set ORepertoire = WScript.CreateObject("Scripting.FileSystemObject" )
Source = "\\SERVEUR2003-1\Applis$"
Destination = "U:\Logiciels"
'Passage concernant l'application Internet Explorer
Dim OIe
Dim Fichier
Dim Chemin
Fichier = "installation_ciel_2005.htm"
Chemin = "E:\Logiciels\Vb Script\"
Set OIe=WScript.CreateObject("InternetExplorer.Application" )
Dim OShell
Set OShell = WScript.CreateObject("WScript.Shell" )
'Vérification de l'existence du répertoire dans le dossier personnel de l'utilisateur
If ORepertoire.FolderExists (Destination) Then
Dim Message
Message = MsgBox("Attention Ciel Réseau existe déjà dans votre répertoire personnel !" &VbCrLf&VbCrLf& "Vos Entreprises vont-être supprimées." &VbCrLf&VbCrLf& "Souhaitez vous continuer ?", vbCritical + vbYesNo + 256, "Attention !" )
If Message = vbYes Then
'Suppression du répertoire existant
ORepertoire.Deletefolder Destination
'Lancement d'une fenêtre Internet Explorer pour faire patienter l'utilisateur
OIe.Left = 50
OIe.Top = 100
OIe.Height = 200
OIe.Width = 550
OIe.MenuBar = 0
OIe.ToolBar = 0
OIe.StatusBar = 0
OIe.Resizable= 0
OIe.Visible = 2
OIe.navigate Chemin&Fichier
'Affichage de la fenêtre Internet Explorer en premier plan à l'écran
OShell.AppActivate "Installation Ciel 2005"
'Copie du répertoire
ORepertoire.CopyFolder Source, Destination
'Fermeture de la fenêtre Internet Explorer
OIe.Quit
'Message avertissant l'utilisateur que l'installation s'est bien déroulée
MsgBox "L'installation de Ciel Réseau dans votre dossier personnel s'est bien déroulée." &VbCrLf&VbCrLf&VbCrLf& "L'administrateur réseau.", vbInformation, "Information"
Else
'L'utilisateur ne souhaite pas supprimer ces données
MsgBox "Demandez conseil à votre professeur." &VbCrLf&VbCrLf&VbCrLf& "L'administrateur réseau.", vbInformation, "Information"
End if
Else
'Lancement d'une fenêtre Internet Explorer pour faire patienter l'utilisateur
OIe.Left = 50
OIe.Top = 100
OIe.Height = 200
OIe.Width = 550
OIe.MenuBar = 0
OIe.ToolBar = 0
OIe.StatusBar = 0
OIe.Resizable= 0
OIe.Visible = 2
OIe.navigate Chemin&Fichier
'Affichage de la fenêtre Internet Explorer en premier plan à l'écran
OShell.AppActivate "Installation Ciel 2005"
'Copie du répertoire
ORepertoire.CopyFolder Source, Destination
'Fermeture de la fenêtre Internet Explorer
OIe.Quit
'Message avertissant l'utilisateur que l'installation s'est bien déroulée
MsgBox "L'installation de Ciel Réseau dans votre dossier personnel s'est bien déroulée." &VbCrLf&VbCrLf&VbCrLf& "L'administrateur réseau.", vbInformation, "Information"
End If
|