@echo off
REM ----- Setup -----
set SRC_DIR=.\WTF
set VBS_FILE=.\_zipIt.vbs
set ARCHIVE_FOLDER=".\WTF_Archives"
mkdir %ARCHIVE_FOLDER% 2> nul
set DATE_TIME=%DATE:~-4%.%DATE:~3,2%.%DATE:~0,2%
rem If you want full date-time : set DATE_TIME=%DATE:~-4%.%DATE:~3,2%.%DATE:~0,2%-%TIME:~0,2%.%TIME:~3,2%.%TIME:~6,2%
set ZIP_FILE="%ARCHIVE_FOLDER%\WTF_%DATE_TIME%.zip"
set WOW_PATH=.\WoW.exe

REM ----- Write VBS file -----
REM source : http://superuser.com/questions/110991/can-you-zip-a-file-from-the-command-prompt-using-only-windows-built-in-capabili
echo Set objArgs = WScript.Arguments > %VBS_FILE%
echo InputFolder = objArgs(0) >> %VBS_FILE%
echo ZipFile = objArgs(1) >> %VBS_FILE%

REM -- Get absolute path from relative path --
REM source :  http://stackoverflow.com/questions/15621395/vbscript-relative-path
echo set fso = CreateObject("Scripting.FileSystemObject") >> %VBS_FILE%
echo fullPathToSrc = fso.GetAbsolutePathName(InputFolder) >> %VBS_FILE%
echo fullPathToZip = fso.GetAbsolutePathName(ZipFile) >> %VBS_FILE%

echo CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar) >> %VBS_FILE%
echo Set objShell = CreateObject("Shell.Application") >> %VBS_FILE%
echo Set source = objShell.NameSpace(fullPathToSrc).Items >> %VBS_FILE%
echo objShell.NameSpace(fullPathToZip).CopyHere(source) >> %VBS_FILE%
echo wScript.Sleep 500 >> %VBS_FILE%

REM ----- Execute VBS file (creating ZIP file) -----
CScript %VBS_FILE% %SRC_DIR% %ZIP_FILE%

REM ----- Delete VBS file -----
del %VBS_FILE%

REM ----- Launch WoW -----
start %WOW_PATH%