@set @x=0 /*

@echo off
SETLOCAL ENABLEEXTENSIONS

set Opera_User_Data="D:\Soft\Opera\MainProfile"

title Opera Optimizer
if not exist "%~dp0sqlite3.exe" goto :NoSQLite3
echo Packing Opera data files...
echo.
set OldTotalSize=0
set NewTotalSize=0
for /r "%Opera%" %%f in (*) do call :VacuumFile "%%~f"
echo.
set /a OldTotalSize=OldTotalSize/1024/1024
set /a NewTotalSize=NewTotalSize/1024/1024
echo Opera "User Data" directory size^:
echo old - %OldTotalSize% MB
echo new - %NewTotalSize% MB

pause
exit /b

:NoSQLite3
echo Place SQLITE3.EXE into this CMD-file folder!
exit /b

:VacuumFile
set OldFileSize=%~z1
set /a OldTotalSize+=%~z1
cscript //nologo /e:jscript "%~f0" "%~1"
if %ERRORLEVEL%==1 set /a NewTotalSize+=%~z1&&goto :eof
"%~dp0sqlite3.exe" "%~1" vacuum
set /a NewTotalSize+=%~z1
if %~z1==%OldFileSize% (set FileMess=ok.) else (set FileMess=reduced!)
echo. - %FileMess%

exit /b
*/

var ForReading = 1, SQLiteMark = "SQLite format 3";
var Args, FSO, FName, F, S, E;
Args = WScript.Arguments;
FSO = new ActiveXObject("Scripting.FileSystemObject");
FName = Args(0).replace(/\\/g, "\\\\");
F = FSO.OpenTextFile(FName, ForReading);
try {
S = F.Read(SQLiteMark.length);
}
catch (E) {}
F.Close();
if (S != SQLiteMark) WScript.Quit(1);
WScript.StdOut.Write(FSO.GetFileName(FName));
@pause