I'm making a HTA for compressing with 7zip , but i'm a little stuck on the folder settings to choose from it must be without spaces.
So I'm looking for a tip or trick to circumvent this problem space. Thank you for your help
Code: Select all
<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 = EncodeURI(objFolderItem.Path)
end If
sub compression
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%")
chemin7zip = oProgramFiles &"7-zip7z.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 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 !"
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
Sub Fermer
window.close()
End Sub
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function
Function EncodeURI(StrAencoder)
Dim cpT
dim CharSpc(10), CharCod(10)
CharSpc(0) = " ": CharCod(0) = "%20"
CharSpc(1) = "µ": CharCod(1) = "%C2%B5"
CharSpc(2) = "à": CharCod(2) = "%C3%A0"
CharSpc(3) = "â": CharCod(3) = "%C3%A2"
CharSpc(4) = "ê": CharCod(4) = "%C3%AA"
CharSpc(5) = "ç": CharCod(5) = "%C3%A7"
CharSpc(6) = "è": CharCod(6) = "%C3%A8"
CharSpc(7) = "é": CharCod(7) = "%C3%A9"
CharSpc(8) = "ë": CharCod(8) = "%C3%AB"
CharSpc(9) = "ô": CharCod(9) = "%C3%B4"
CharSpc(10) = "ø": CharCod(10) = "%C3%B8"
EncodeURI = StrAencoder
For cpT = 0 To UBound(CharSpc)
EncodeURI = Replace(EncodeURI, CharSpc(cpT), CharCod(cpT), 1, -1, vbTextCompare)
Next
End Function
</script>
</head>
<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">
Mot de passe OBLIGATOIRE : <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>