@if(0)==(0) ECHO On
CScript.exe //NoLogo //E:JScript "%~f0" %*
GOTO :EOF
@end
var Usage="Uso: MakeZIP.CMD ZIPfile files...";
if(WScript.Arguments.Count()<2){
WScript.Echo(Usage);
WScript.Quit();
/* se revisa que la cantidad de argumentos sean al menos 2, sino se termina y se informa de como funciona el script*/
}
var ZIPfile=WScript.Arguments.Item(0);
/*se guarda en una variable el valor del primer argumento*/
var fso=new ActiveXObject("Scripting.FileSystemObject");
/*se crea el objeto para manejar archivos*/
if(fso.GetExtensionName(ZIPfile).toUpperCase()!="ZIP"){
WScript.Echo("Extension de Nombre Invalido -",ZIPfile);
WScript.Quit();
/*se revisa que la extension que le hemos dado a nuestro archivo sea zip*/
}
if(!fso.FileExists(ZIPfile)){
var File=fso.CreateTextFile(ZIPfile,false);
File.Write("PK" + String.fromCharCode(5,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0));
File.Close();
/*si no existe el zip, se crea y se le escribe la cabecera que lo identifica como tal*/
}
var wShell=new ActiveXObject("WScript.Shell");
/*se crea un nuevo objeto que se utiliza una sola vez para mostrar un mensaje*/
var vbYesNoCancel=3;
var vbQuestion=32;
var vbYes=6;
var vbNo=7;
var vbCancel=2;
/* se le dan valores a algunas variables de respuesta*/
var Shell=new ActiveXObject("Shell.Application");
/* se crea un nuevo objeto para manejar archivos y carpetas*/
var File=fso.GetFile(ZIPfile);
/*se guarda el archivo zip*/
var zFolder=Shell.NameSpace(File.Path);
/*se utiliza namespace para obtener acceso a ciertas propiedades del archivo zip, y se guarda en una variable*/
F1:for(var k=1;k<WScript.Arguments.Count();k++){
var Path=WScript.Arguments.Item(k);
var FileName=fso.GetFileName(Path);
var sFolderItem=Shell.NameSpace(fso.GetAbsolutePathName(Path)+String.fromCharCode(92,92,46,46,92,92)).ParseName(FileName);
/*se obtiene la ruta completa del archivo*/
if(!sFolderItem){
WScript.Echo(Path,"- No encontrado.");
break;
/*Se revisa que exista la ruta del archivo, si no existe avisa y termina*/
}
W1:while(true){
/*cuando esta ok*/
var zFolderItem=zFolder.ParseName(FileName);
if(!zFolderItem){
var ModifyDate=new Date(File.DateLastModified);
/*se guarda en una variable, la fecha de la ultima modificación del archivo*/
zFolder.CopyHere(sFolderItem);
/*se copia el archivo al zip*/
while(ModifyDate.valueOf()==new Date(File.DateLastModified).valueOf()) WScript.Sleep(100);
/*cuando la fecha del archivo continue siendo la misma, se hace una espera*/
break;
}else{
/*si no esta ok*/
var Ans=wShell.PopUp("aaaaaaaaaa:\n\n"+'"'+FileName+'"\n\nbbbbbbbbbb?',0,"cccccc",vbYesNoCancel+vbQuestion);
/*muestra un mensaje, sin sentido :p*/
switch(Ans){
case vbYes:
zFolderItem.InvokeVerb("delete");
/*si se responde si, borra el archivo*/
break;
case vbNo:
break W1;
case vbCancel:
break F1;
}
}
}
}
WScript.Quit();
/*se termina el script*/

[Modifico:] Bueno, finalmente he encontrado que era lo que hacía que las etiquetas geshi marcaran todo de manera incorrecta, y lo he sustituído por un equivalente ---> '\\..\\'==String.fromCharCode(92,92,46,46,92,92)