>>>>>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.