try
get_system_time (MSecond, Second, Minute, Hour, Day, YDay, Month, Year)
DateTime := Year+'-'+Month$'.2'+'-'+Day$'.2'+' '+Hour$'.2'+':'+Minute$'.2'+':'+Second$'.2'+':'+MSecond$'.3'
DirPathFirst := 'D:\\HalconException\\'
file_exists (DirPathFirst, bFileExists)
if (not bFileExists)
make_dir (DirPathFirst)
endif
DirPathSecond := 'D:\\HalconException\\'+Year+'_'+Month$'.2'+'_'+Day$'.2' +'\\'
file_exists (DirPathSecond, bFileExists)
if (not bFileExists)
make_dir (DirPathSecond)
endif
FilePath := DirPathSecond+Str_FileName+'.log'
file_exists (FilePath, bFileExists)
if (bFileExists)
open_file (FilePath, 'append', pFileHandle)
else
open_file (FilePath, 'output', pFileHandle)
endif
Str_Msg := DateTime +':' +Str_Msg+'\n'
fwrite_string (pFileHandle, Str_Msg)
close_file (pFileHandle)
catch (Exception)
endtry
return ()
