Error Showing “epubcheck error: mimetype entry missing or not the first in archive”

Question

I am using below code to make epub file but when i velidate epub this is showing error please help

set FILETOZIP=D:\e7477\feb\temp\utf.*

set TEMPDIR=D:\e7477\tool\zip\temp738
rmdir %TEMPDIR%
mkdir %TEMPDIR%
xcopy /s/y %FILETOZIP% %TEMPDIR%
echo Set objArgs = WScript.Arguments > _zipIt.vbs
echo InputFolder = objArgs(0) >> _zipIt.vbs
echo ZipFile = objArgs(1) >> _zipIt.vbs
echo CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar) >> _zipIt.vbs
echo Set objShell = CreateObject("Shell.Application") >> _zipIt.vbs
echo Set source = objShell.NameSpace(InputFolder).Items >> _zipIt.vbs
echo objShell.NameSpace(ZipFile).CopyHere(source) >> _zipIt.vbs
echo wScript.Sleep 2000 >> _zipIt.vbs
CScript  _zipIt.vbs  %TEMPDIR%  D:\e7477\feb\temp\utf\mimetype.epub
if exist D:\e7477\tool\zip\temp738 rd /s /q D:\e7477\tool\zip\temp738

pause