And, BTW, that's just a 3Liner in VFP:
FOR i = 1 TO ADIR(aFiles, "*.txt") STRTOFILE(STRTRAN(FILETOSTR(aFiles(i,1)), "OldText", "NewText"), aFiles(i,1)) ENDFOR
Or, maybe for easier disassembly:
FOR i = 1 TO ADIR(aFiles, "*.txt") cFile = aFiles(i,1) ? cFile cContent = FILETOSTR(cFile) cContent = STRTRAN(cContent, "OldText", "NewText", <Several Options here>) STRTOFILE(cContent, cFile) ENDFOR
wOOdy
"*´¨) ¸.·´¸.·*´¨) ¸.·*¨) (¸.·´. (¸.·` * .·`.Visual FoxPro: It's magic ! (¸.·``··*