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