home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / multimedia / ppsee / PPSeeSetup.exe / bin / batch.vbs next >
Encoding:
Text File  |  2006-11-13  |  1.2 KB  |  45 lines
  1. ' Batch script generator of PPSee program.
  2. ' The script create new script for batch creating Image galleries 
  3. '    in all subfolders of the current folder.
  4. ' Modify the script by your requirements.
  5. ' Author: Pavel Ponec
  6. ' -------------------------------------------------
  7.  
  8. newBatchFile   = "PPSeeBatch.bat"
  9. ppSeeBatch     = "C:\Program Files\PPSee\bin\ppsee.bat"
  10. photoDirectory = "."
  11.  
  12. ' -------------------------------------------------
  13.  
  14. Function getCommand ( ByVal dir)
  15.   getCommand = "call """ & ppSeeBatch & """ """ & dir & "\."" -batch"  
  16. End Function
  17.  
  18. WScript.Echo "Batch Mode is Running ..."
  19. set oArgs = Wscript.Arguments
  20. if oArgs.count>0 then
  21.   photoDirectory = oArgs(0) 
  22. end if
  23.  
  24. set shell  = WScript.CreateObject("Wscript.Shell")
  25. set fso    = WScript.CreateObject("Scripting.FileSystemObject")
  26. set dirs   = fso.GetFolder       (photoDirectory).SubFolders
  27. Set script = fso.CreateTextFile  (newBatchFile, True)
  28.  
  29. script.WriteLine("@echo off")
  30. script.WriteLine("rem PPSee Batch Script")
  31. script.WriteLine("")
  32.  
  33. For Each dir In dirs
  34.     WScript.Echo dir
  35.     script.WriteLine(getCommand(dir)) 
  36. Next
  37.  
  38. script.WriteLine("")
  39. script.WriteLine("echo.")
  40. script.WriteLine("echo All Galleries are finished.")
  41. script.Close
  42.  
  43. ' EOF
  44.  
  45.