I'm using Xitech's Cryptor to encrypt all of my application data files. It's working fine for most of the files...all except those with memo fields. For example, if the folder has the following files:

Accts.Dbf
Config.Dbf
Pcsales1.Dbf
Pcsales1.Fpt
Pcsales2.Dbf
Pcsales2.Fpt

...only Accts.Dbf and Config.Dbf are being encrypted...although when I step through the code it looks like the pcsales1.dbf and .fpt files are encrypting successfully.

The code looks like this.....

XiCr = Createobject("XitechCryptor.Cryptor")
XiCr.BackupMode = 1
…...
FOR x = 1 TO lnFolders
	lcFolder = ALLTRIM(aFolders[x])
	lcDir = Sys(5) + Sys(2003) + "\" + lcFolder
	lcList = Sys(5) + Sys(2003) + "\" + lcFolder + "\*.*"
	lnCnt=Adir(laDir, lcList )
	For i = 1 To lnCnt
		lcFile = lcDir + "\" + Alltrim(laDir[i,1])
		lcDBF = lcDir + "\" + JUSTSTEM(lcFile) + ".DBF"
		lcFPT = lcDir + "\" + JUSTSTEM(lcFile) + ".FPT"
		IF FILE(lcDBF)
			XiCr.EncodeFile( lcDBF ,"mypassword",256)
		ENDIF
		IF FILE(lcFPT)
			XiCr.EncodeFile( lcFPT ,"mypassword",256)
		Endif
	Endfor
EndFor


Anyone have any thoughts?
Thanks