'====================================================================
'= Enumerate and Rename Files VBScript sample - Copyright © 2008, Dave Moats
'=
'= This sample is provided 'as-is', without any express or implied warranty.
'= In no event will the authors be held liable for any damages arising from
'= the use of this sample code.
'=
'= Permission is granted to anyone to use this sample code for any purpose,
'= including commercial applications, subject to the following restrictions:
'=
'= The origin of this code must not be misrepresented;
'=       you must not claim that you wrote the original code.
'=       If you use this code, an acknowledgment in the
'=       documentation is requested - shown below:
'=
'= Portions Copyright © 2008, Dave Moats (http://www.davemoats.com/).
'=
'====================================================================
'====================================================================
'== fileRename.vbs       -    script to enumerate all the folders and
'==                                  files in a specified folder and then rename
'==                                  all the files to include the folder name
'==                                  this is helpful for a folder structure that
'==                                  contains a large number of files that are
'==                                  still the default name set by whatever
'====================================================================
option explicit

'====================================================================
'==    windows script host does not have an easy way to check for
'==    syntax errors, the only way to do this is to run the entire
'==    script, to work around this issue, uncomment the wscript.quit
'==    command below then run the script, this will get the wsh
'==    environment to check the script for syntax errors and the
'==    script will exit when it hits the wscript.quit command, so
'==    the entire will not be exceuted
'====================================================================
'wscript.quit

dim startFolder, fso, objFolder

if wscript.arguments.count = 0 then
   wscript.echo ( "Usage: fileRename.vbs <path to folder to process>")
   wscript.quit ( )
elseif wscript.arguments.item ( 0) = "/?" Or wscript.arguments.item ( 0) = "-?" then
   wscript.echo ( "Usage: fileRename.vbs <path to folder to process>")
   wscript.quit ( )
else
   startFolder = wscript.arguments.item ( 0)
end if

set fso = createobject ( "Scripting.FileSystemObject")

set objFolder = fso.getfolder ( startFolder)

listFolders ( objFolder )

set objFolder = nothing
set fso = nothing

wscript.quit

'====================================================================
'== sub listFolders    -    enumerates all the folders under the target
'==                                  folder
'====================================================================
sub listFolders ( inFolder )

   dim subFolders

   '==================================================================
   '== ignore any folder does not exist errors
   '==================================================================
   on error resume next

   set subFolders = inFolder.subfolders

   for each folder in subFolders

      set objSubFolder = fso.getfolder ( folder.path )

      wscript.echo "    Folder: " & objSubFolder.path
     
      listFolders ( objSubFolder )

      renameFiles ( objSubFolder )

      set objSubFolder = nothing

   next

end sub

'====================================================================
'== sub renameFiles    -    enumerate and rename all the files located
'==                                  in the target folder
'====================================================================
sub renameFiles ( inFolder )

   dim objFile, file

   set objFiles = inFolder.files

   for each file in objFiles

      if instr ( 1, file.name, ".LOG" ) <> 0 or instr ( 1, file.name, ".log" ) <> 0 then
         wscript.echo "existing file name: " & file.name
         wscript.echo "new file name: " & inFolder.name & file.name
         file.name = inFolder.name & file.name
      end if

   next

end sub