二.新建保存捐献文件夹和文件:

     1.建立文件夹     ForceDirectories    创建新目录.     ForceDirectories  ..\..\..\..\通区捐献\<$STR(A100)>\

     2.建文件     CreateFile    文件名称     CreateFile ..\..\..\..\通区捐献\<$STR(A100)>\当前01区.txt

=============D:\MirServer\Mir200\Envir\MapQuest_Def\QManage.txt===============

[@Startup]

#if
equal A101 
#act
MOV A101  <$MONTH>月<$DAY>日
forcedirectories ..\..\..\..\通区捐献\<$STR(A101)>
createfile ..\..\..\..\通区捐献\<$STR(A101)>\当前01区.txt
createfile ..\..\..\..\通区捐献\<$STR(A101)>\当前02区.txt

addtextlistex ..\..\..\..\通区捐献\<$STR(A101)>\当前01区.txt    当前1区:0     0
addtextlistex ..\..\..\..\通区捐献\<$STR(A101)>\当前02区.txt    当前2区:0     0