cwpath = "\\machine\c\myfolder\mysub" cwoldtext = "xxx" cwnewtext = "yyy" Set defa to (cwpath) nwtotalfiles = 0 Dimension awFiles[1] nwtotalfiles = ADIR(awFiles,"*.*") For ix = 1 TO nwtotalfiles cwbuff = filetostr(awFiles[ix,1]) do while cwoldtext $ cwbuff if at(cwoldtext, cwbuff) > 0 cwbuff = stuff(cwbuff, at(cwoldtext, cwbuff), len(cwoldtext), cwnewtext) endif Enddo =strtofile(cwbuff, awFiles[ix,1]) EndforHTH