>>>>>>How do I delete all text files in c:\texter which have the word KANG in the file contents
>>>>>>
>>>>>>Thanks
>>>>>>
>>>>>>Colin
>>>>>
>>>>>How big are the files? Are they .txt files? Do you want to do this using VFP code?
>>>>>
>>>>>If so, loop with adir, filetostr, check the string and then delete.
>>>>
>>>>This is my current code which gives me all the files - what does the filetostr line look like and where doe it go?
>>>>
>>>>lnFiles = Adir(arrTextFiles1, 'c:\program files\smartserver3\track\*.txt')
>>>>For ix = 1 To lnFiles
>>>>
>>>> Append Blank
>>>> Append Memo myMails From ('c:\program files\smartserver3\track\'+arrTextFiles1[ix,1])
>>>>Endfor
>>>>
>>>>Thanks
>>>>
>>>>Colin
>>>

>>>lnFiles = Adir(arrTextFiles1, 'c:\program files\smartserver3\track\*.txt')
>>>For ix = 1 To lnFiles
>>>   lcString = filetostr('c:\program files\smartserver3\track\'+arrTextFiles1[ix,1])
>>>   if 'KANG' $ lcString
>>>       try 
>>>          erase ('c:\program files\smartserver3\track\'+arrTextFiles1[ix,1])
>>>       catch to loError
>>>             ** process the error
>>>       endtry 
>>>       else && assuming we don't want to process these files 
>>> 
>>>Append Blank
>>>Append Memo myMails From ('c:\program files\smartserver3\track\'+arrTextFiles1[ix,1])
>>>   endif
>>>Endfor

>>
>>Naomi
>>
>>You're a star as always
>>
>>Many thanks
>>
>>Colin
>
>Since you already have the file's contents in a variable, you should use

>Insert into yourdbf (myMails) values (lcString)

Instead of the two Append lines.

Thanks Tore

Naomi's solution has already worked