Naomi,

Do the follow to see what are actually values of properties and then modify your code

if directory(m.lcDir + 'Batch_' + alltrim(str(m.liBatch_Number)))
  =messagebox(directory("\\Jzanus8\Client_Imports\Jzanus\Data_Entry\Batch_" + alltrim(str(3350))))
Else
  =messagebox("IF = .F. "+directory(m.lcDir + 'Batch_' + alltrim(str(m.liBatch_Number))))
Endif

AT