Rem กรณีที่เป็นเครื่องลูก ให้เปลี่ยนจาก \BDPOS\ เป็น M:\
Set DATAPATH=\BDPOS\
@If Exist M:\Data\FileHave.Dir Set DATAPATH=M:\
Rem กรณีที่เป็นไดร์อื่น ให้เปลี่ยนจาก G:\ เป็น ?:\
Set TARGET=G:\


@If not Exist %TARGET%_datanet\Data.zp Md %TARGET%_datanet
@If not Exist %TARGET%_datanet\System\Dbfrun.ZP Md %TARGET%_datanet\System

@Pkzip -u %TARGET%_datanet\Data.Zp     %DATAPATH%Data\*.Dbf
@Pkzip -u %TARGET%_datanet\Transac.Zp  %DATAPATH%Transac\*.Dbf
@Pkzip -u %TARGET%_datanet\Error.Zp    %DATAPATH%_Error\*.Err
@Pkzip -u %TARGET%_datanet\Data001.Zp  %DATAPATH%Data\001\*.Dbf
@Pkzip -u %TARGET%_datanet\Room.Zp     %DATAPATH%Transac\rooms\*.Dbf
@Pkzip -u %TARGET%_datanet\Test.Zp     %DATAPATH%Test\*.Dbf
@Pkzip -u %TARGET%_datanet\System\Dbfrun.Zp   %DATAPATH%Dbfrun\*.Dbf
@Pkzip -u %TARGET%_datanet\System\DirData.Zp  %DATAPATH%DirData\*.Dbf
@Pkzip -u %TARGET%_datanet\System\Data2Sc.Zp  %DATAPATH%Data2Sc\*.Dbf
@Pkzip -u %TARGET%_datanet\System\Sc2Pos.Zp   %DATAPATH%Sc2Pos\*.Dbf


Rem Copy InDex File To Drive D:
@If not Exist D:\TempBack\Data.Cdx Md D:\TempBack
@Pkzip -u D:\TempBack\Data.Cdx     %DATAPATH%Data\*.Cdx
@Pkzip -u D:\TempBack\Transac.Cdx  %DATAPATH%Transac\*.Cdx
@Pkzip -u D:\TempBack\Data001.Cdx  %DATAPATH%Data\001\*.Cdx
@Pkzip -u D:\TempBack\Room.Cdx     %DATAPATH%Transac\rooms\*.Cdx


@Pkzip -u %TARGET%_datanet\System\Bdpos.Zp  %DATAPATH%*.Prg
@Pkzip -u %TARGET%_datanet\System\Bdpos.Zp  %DATAPATH%*.fxp
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Scx
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Sct
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Spr
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Spx
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Mnx
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Mnt
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Mpr
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Mpx
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Dbf
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Cdx


Rem Backup Programn,Report
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Fr?
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Exe
@Pkzip -u %TARGET%_datanet\System\BdPos.Zp  %DATAPATH%*.Bat
@Pkzip -u %TARGET%_datanet\System\Setup.Zp  %DATAPATH%Setup\BdPos\*.*


Rem Copy Full Data And Index 
@If not Exist %TARGET%data\Filehave.Dir     Md %TARGET%data
@If not Exist %TARGET%Transac\Filehave.Dir  Md %TARGET%Transac
@If not Exist %TARGET%data\001\Filehave.Dir Md %TARGET%data\001
@If not Exist %TARGET%Transac\Rooms\Filehave.Dir Md %TARGET%Transac\Rooms
Copy D:\BdPos\Data\Filehave.dir %TARGET%data\.
Copy D:\BdPos\Data\Filehave.dir %TARGET%Transac\.
Copy D:\BdPos\Data\Filehave.dir %TARGET%data\001\.
Copy D:\BdPos\Data\Filehave.dir %TARGET%Transac\Rooms\.

Rem Change For Backup All Programn  %TARGET%  =  %TARGET%BdPos\
@Pkunzip -o %TARGET%_datanet\Data.Zp       %TARGET%data
@Pkunzip -o %TARGET%_datanet\Transac.Zp  %TARGET%Transac
@Pkunzip -o %TARGET%_datanet\Data001.Zp  %TARGET%data\001
@Pkunzip -o %TARGET%_datanet\Room.Zp     %TARGET%Transac\Rooms
@Pkunzip -o D:\TempBack\Data.Cdx                %TARGET%data
@Pkunzip -o D:\TempBack\Transac.Cdx           %TARGET%Transac
@Pkunzip -o D:\TempBack\Data001.Cdx          %TARGET%data\001
@Pkunzip -o D:\TempBack\Room.Cdx             %TARGET%Transac\Rooms


@Cls
Rem        Backup  Complete
Rem        Type 'Exit' To Windows 
@Exit

