voidclqllistdlg :3360写入事件日志(
{
CString path1=Getpath (() ) (\data )； //创建文件的路径
创建目录(路径1，空)； //创建文件
CFileFind ff；
CString tm1=GetTime (； //得到时间
CString path=Getpath (() ) (\data )； 获取//文件的路径
CString csData='[' tm1 '] ' ' ' '登录工程师帐户' 'n '； //写日记的内容
if (！ ff.findfile(path ) )
{
MessageBox ('日志文件夹不存在。' ，'提示'，请创建MB_ICONHAND | MB_OK )。
返回；
}
ctringfull path=path '' ' log _ ' tm1 '.log '； //把时间命名为日记
file * file=fopen (完整路径，' a '； //打开文件
if (文件==null )
{
CString str；
str.Format ('打开[%s]失败)、完整路径)；
消息盒(str；
返回；
}
写入(cs数据，1，strlen ) (cs数据，文件)； //写入内容
fclose (文件； //关闭日志
}