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