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 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
| <html>
<head>
<SCRIPT LANGUAGE="VBScript">
'=========================================================
'Fenêtre pour choisir le répertoire cible de la sauvegarde
'=========================================================
Const WINDOW_HANDLE = 0
BIF_editbox = &H0010
titre="Sélectionner la destination de la sauvegarde"
CenterWindow 260,180
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, titre , BIF_editbox)
On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
msgbox "Annulation de la sauvegarde",48,"Annulation de la sauvegarde"
fermer()
Else
objPath = qq(objFolderItem.Path)
end If
sub compression
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
chemin7zip = oProgramFiles &"\7-zip\7z.exe"
If Not fso.FileExists(chemin7zip) Then
MsgBox "Le " & chemin7zip & " n'existe pas",48,chemin7zip
WshShell.Run "http://www.spiroo.be/7zip/"
Call Fermer
Else
strCMD = "cmd /K Title = Compression avec 7-zip en ligne de Commande & cd %PROGRAMFILES%\7-zip & 7z.exe"
password = pass.value
MsgBox "Vous avez choisi le dossier " & qq(objPath) & " pour la sauvegarde",64,"Dossier Choisi "& qq(objPath)&""
Str7zip = strCMD & " u " & objPath &"\sauvegarde.zip " & objPath & " -p"&password
'MsgBox Str7zip,64," Commande à exécuter !"
WshShell.Run Str7zip,1,True
MsgBox "L'archive : " & objPath &"\sauvegarde.zip est Crée avec Succès ! ",64,"sauvegarde.zip est Crée avec Succès !"
Explore objPath &"\sauvegarde.zip"
Call Fermer
End If
End Sub
Sub CenterWindow(x,y)
window.resizeTo x,y
iLeft = window.screen.availWidth/2 - x/2
itop = window.screen.availHeight/2 - y/2
window.moveTo ileft, itop
End Sub
Function Explore(filename)
Set Ws = CreateObject("WScript.Shell")
ws.run "Explorer /n,/select,"&filename&""
End Function
Sub Fermer
window.close()
End Sub
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
</script>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<title>Sauvegarde avec l'utilitaire 7-Zip</title>
<HTA:APPLICATION ID="Sauvegarde avec l'utilitaire 7-Zip"
APPLICATIONNAME="Sauvegarde avec l'utilitaire 7-Zip"
CAPTION="Yes"
SHOWINTASKBAR="No"
SINGLEINSTANCE="yes"
SYSMENU="No"
SCROLL="no"
WINDOWSTATE="normal">
<center>
<body BGCOLOR="lightblue">
<B>MOT DE PASSE :<B> <input type="password" size="20" name="pass" ID="pass"><br><br>
<input type="submit" id="BTvalider" name="valider" value="Continuer" onclick="compression()">
<input type="button" id="Fermer" value="Fermer" onclick="Fermer()">
</body>
</html> |
Partager