string batfilename,writeline,postdate,merfile,merfile_path
int li_bat,li_ftpret,li_merfile
string ls_ipadd,ls_username,ls_password,ls_downpath,ls_localpath,filename

batfilename = "D:\ppqf\germer.bat"
filedelete(batfilename)

li_bat = FileOpen(batfilename, LineMode!, Write!, LockWrite!, Replace!)

if li_bat < 0 then
MessageBox("错误", batfilename + " 文件产生错误。~r~n" + "目录不存在，或者没有写权限。", StopSign!)
Return
end if