ReadSubdirectories ('g:\graphics\amazon')

Procedure ReadSubdirectories (Dir)
var Subs Files SaveDir SaveDir2 NewName P St

   ReadLongNames
   SaveDir = CurrentDirectory
   ChDir Dir

   IncludeDirectories Off
   DirectoriesOnly Off
   WholeFileNames On

   ReadDirectory(Dir,Files)

   Loop Files
      NewName = LoopVal
      P = pos('.',NewName)
      if P = 30
         St = UpperCase(Left(NewName,P-1))
         delete(NewName,1,P)
         NewName = LowerCase(NewName)
         NewName = St + '.' + NewName
         Writeln 'Renaming: ' LoopVal ' to ' NewName
         FileRename LoopVal NewName
      endif
   EndLoop
   Dispose(Files)

   IncludeDirectories On
   DirectoriesOnly On
   WholeFileNames On

   ReadDirectory(Dir,Subs)

   Loop Subs
      Writeln
      Writeln 'Renaming: ' LoopVal ' to ' LowerCase(LoopVal)
      FileRename LoopVal LowerCase(LoopVal)
      Writeln
      SaveDir2 = CurrentDirectory
      ChDir(LoopVal)
      ReadSubdirectories('.')
      ChDir(SaveDir2)
   EndLoop
   Dispose(Subs)
   ChDir saveDir
EndProc