La copie de code est la suivante:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'// Copiez le chemin où se trouve ce fichier
'//
'//2.change c: /program/winrar/rar.exe
'// Copiez le chemin où se trouve ce fichier et le renommez-le à winrar.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// Compresspath (bordeaux)
'// Path vers le fichier compressé | Variante de chaîne
'//
'// Décompresseur (bordeaux)
'// Décompressez le dossier de la variante du fichier | chaîne
'//
'//compresse
'// Compression en ligne
'//
'//décompresser
'// Décompression en ligne
'//
'// PowerByNever-Online
'//
'//Email:BlueStiny@At
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
Option Explicit
classcompress_decompress_files
Version privée, droit d'auteur
privateowshshell, Ofo
privatecompresspath, sdecompresspath
PrivésubClass_Initialize
version = "compress_decompress_filesBuilder20051015"
Copyright = "PowerByMiracle (BlueDestiny)"
SetOfSo = server.createObject ("scripting.filesystemObject")
Setowshshell = server.createObject ("wscript.shell")
writeln (version + "<br>" + copyright)
fin
PrivésUbclass_termince
ifosobject (owshshell) thensetowshshell = rien
ifoSobject (OFSO) thensetofso = rien
fin
PrivateFunctionPhysicalPath (Bulnals)
PhysicalPath = server.mappath (s)
finition de fin
PrivateSubvalidateFile (bordeaux)
ifofso.fileexists (s) therexitsub
ifofso.folderexists (s) therexitsub
Callerr "Fichier (dossier) Notexistes!"
fin
PrivateSubCreateFolder (bordeaux)
ifofso.folderexists (s) therexitsub
OFSO.CREATEFOLDER (S)
fin
Privatsubwriteln (bordeaux)
réponse.write "<p>" + s + "</p>" + vbcrlf
fin
PrivateSubcallerr (bordeaux)
Writeln "<p> <b> Erreur: </b> </p>" + s
réponse.
fin
PrivésUnsucc (bordeaux)
Writeln "<p> <b> Succès: </b> </p>" + s
fin
PublicsubCompress
validerfile (sampress)
owshshell.run ("winrara" + sampresspath + "" + sdecompresspath & "")