IF FileExists(is_filename) THEN
IF Messagebox("另存为",is_path+string("已存在。~n要替换它吗?"), &
Exclamation!,YESNO!,2) = 2 THEN
RETURN
END IF
END IF
ii_FileNum = fileopen(is_path,StreamMode!,Write!,LockReadWrite!,Replace!)
filewrite(ii_FileNum,w_notepad.mle_notepad.text)
fileclose(ii_FileNum)
ib_store = TRUE