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 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Sub SauvIE
Dim objFSO, WshShell, SauvRepIE, sUserProfileIE, FavorisIE, Medoc
Dim sUserProfileFX, FavorisFX, SauvRepFX
Dim VfiriIE
Dim Reponse
Set WshShell=CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sUserProfileIE = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
sUserProfileFX = WshShell.ExpandEnvironmentStrings("%APPDATA%")
Medoc = "p:"
If objFSO.FolderExists(Medoc) Then ' Il doit arrêter opération et afficher le message ci-dessus'
FavorisFX = sUserProfileFX & "\Mozilla\Firefox\Profiles" ' lien profile Frefox '
SauvRepFX = "p:\Favorisfirefox" 'lien sauvegarde '
SauvRepIE = "p:\Favoris" 'lien sauvegarde '
FavorisIE = sUserProfileIE & "\Favorites" ' lien profile favoris windows 7
If not objFSO.FolderExists(FavorisIE) Then
FavorisIE = sUserProfileIE & "\Favoris" ' lien profile favoris windows XP
else
FavorisIE = FavorisIE ' lien profile favoris windows 7
End if
if objFSO.FolderExists(FavorisFX) Then
MsgBox "Attention fermeture de la fenêtre Firefox",vbExclamation,"Attention"
If Not objFSO.FolderExists(SauvRepFX) Then Set objFolder = objFSO.CreateFolder(SauvRepFX)
objFSO.CopyFolder FavorisFX , SauvRepFX, True
If Not objFSO.FolderExists(SauvRepIE) Then Set objFolder = objFSO.CreateFolder(SauvRepIE)
objFSO.CopyFolder FavorisIE , SauvRepIE, True
'il copie les deux favoris IE et firefox puis affichier le message ci-dessous'
MsgBox "Operation de sauvegarde s'est terminée avec succès",vbInformation,"Information"
Else
If Not objFSO.FolderExists(FavorisFX) Then
If Not objFSO.FolderExists(SauvRepIE) Then Set objFolder = objFSO.CreateFolder(SauvRepIE)
objFSO.CopyFolder FavorisIE , SauvRepIE, True
MsgBox "Operation de sauvegarde s'est terminée avec succès",vbInformation,"Information"
' si le dossiers Firefox n'existe pas, il va copier seulement les favoris IE '
end if
else
MsgBox "Erreur ! vous n'avez pas de dossier Mes documents, merci de contactez le service Securité logic",vbInformation,"Information"
End IF
End Sub |
Partager