Set Safe Off Local m.yrep m.yrep=Addbs(Getdir()) Set Defa To (m.yrep) Local m.myvar TEXT to m.myvar textmerge noshow rem change the code page to UTF-8. chcp 65001 dir "<<m.yrep>>" /b /s > <<m.yrep>>fileslist.txt ENDTEXT Strtofile(m.myvar,m.yrep+"ybat.bat") Local oshell oshell=Newobject("wscript.shell") oshell.Run(m.yrep+"ybat.bat",.F.,0) &&/s recursive all subfolders from souce m.yrep oshell=Null Local m.oo m.oo=m.yrep+"fileslist.txt" If File (m.oo) Run/N notepad &oo Else Messagebox(m.oo +" not created! re try once.") Endi Retu