*[2007/06/16 19:04:05] dragan - this should end our problems with Tortoise upper/lowercase. *-- can be set to be executed as a part of shutdown process. Public oFso As Scripting.FileSystemObject oFso=Newobject('Scripting.FileSystemObject') lcHome=Justpath(Justpath(Sys(16))) oDir=oFso.GetFolder(lcHome) doDir(oDir) Release All Procedure doDir(toDir) Local loDir If toDir.Name="." Return Endif For Each loDir In toDir.subfolders doDir(loDir) Endfor lcSvnDir=Addbs(toDir.Path)+".svn\text-base\" If Directory(lcSvnDir) ? toDir.path loSvnDir=oFso.GetFolder(lcSvnDir) For Each loFile In toDir.Files lcFile=loFile.Path lcFileShort=Justfname(lcFile) lcFullFile=Forcepath(lcFileShort+".svn-base", loSvnDir.Path) If File(lcFullFile) loSvnFile=oFso.Getfile(lcFullFile) lcNewName=Forcepath(JustStem(loSvnFile.name), Justpath(loFile.path)) IF NOT lcNewName==lofile.path ? lofile.name, "-->", JustStem(loSvnFile.name) oFso.MoveFile(lofile.Path, lcNewName) endif Endif Endfor Endif