>******************************************************************** >* Description.......: RenameReports - rename all existing reports >* Calling Samples...: >* Parameter List....: >* Created by........: Nadya Nosonovsky 02/07/2001 02:44:30 PM >* Modified by.......: >******************************************************************** >local lnRepFiles, lni, lcOldName, lcNewName, loFSO, loFolder, lcExt >*!* lnRepFiles=adir(laReports,"*.FR?") >*!* for lni=1 to lnRepFiles >*!* lcOldName=laReports[lni,1] >*!* ?lcOldName >*!* next >loFSO=createobject("Scripting.FileSystemObject") >loFolder=loFSO.GetFolder(curdir()) >for each oFile in loFolder.Files > lcOldName=oFile.Name > lcExt=justext(lcOldName) > if inlist(lcExt,"LBX","LBT","FRX","FRT") && Report or labels > lcNewName="XS"+lcOldName > loFso.MoveFile( > endif >endfor>