virtualbox.org

Code: Select all

'These strings are used to define the print commands on the found files, based on the file extension.
'A VB text string must begin and end with a double quote.
'Double quotes are often required in command lines to handle paths and filenames containing spaces.
'Two adjacent double-quotes in a VB text string get converted to one double-quote, to allow
'  double-quotes to appear within the string. In these examples, the variable dummy is loaded:
'    dummy = "hello"      < this line fills dummy with the word hello.
'    dummy = """hello"""  < this line fills dummy with "hello" in double quotes. There are three quotes on each end,
                          one to start the string, and two to make the double-quote in the string.
'If series of double quotes gets confusing, the command CHR(34) can be used to place a double quote in the string:
'    dummy = CHR(34) & "hello" & CHR(34)  < this will also fill dummy with "hello" in double quotes.

'Printing program command strings:
'PDFrunstring="""C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"" /t """&pdflocation&"\"&fil.name&""""
PDFrunstring="""C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"" /t """&pdflocation&"\"&fil.name&""""
DOCrunstring="""C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"" /p """&pdflocation&"\"&fil.name&""""
TXTrunstring="""C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"" /p """&pdflocation&"\"&fil.name&""""

'Shared folder to monitor:
pdflocation="R:\ServerRamDisk"

Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject ("WSCript.shell")
Set fol = fso.GetFolder(pdflocation)
wscript.sleep 60000 'wait for ram drive to appear
on error resume next
do
Set filecol = fol.Files
For Each fil in filecol
  filename = fil.name
if filename="running.test" or filename="shutdown.test" or filename="reboot.test" then
  fso.deletefile pdflocation&"\"&fil.name 'deleting running.test shows core of server still running well.
  if filename="shutdown.test" then shell.run "shutdown -s -f -t 10"
  if filename="reboot.test" then shell.run "shutdown -r -f -t 10"
else
  fileext=ucase(fso.GetExtensionName(fil.name))
  select case fileext
  case "PDF"
    numcopies = 1
    copycount = 0
    testcopies = instr(filename,")copies")
    copytally = ""
    if testcopies <> 0 then
      for x = (testcopies - 1) to 1 step -1
      if instr("0123456789",mid(filename,x,1)) = 0 then exit for
      copytally = mid(filename,x,1) & copytally
      next
    end if 
    if isnumeric(copytally) then
      numcopies = cint(copytally)
    end if
    'msgbox PDFrunstring
    do
    shell.run PDFrunstring
    copycount = copycount + 1
    loop until copycount = numcopies
    'msgbox "continue"    
    'wscript.quit
    do
      err.clear
      wscript.sleep 5000
      fso.deletefile pdflocation&"\"&fil.name
    loop until err.number=0 
  case "DOC"
    'msgbox DOCrunstring
    shell.run DOCrunstring
    do
      err.clear
      wscript.sleep 5000
      fso.deletefile pdflocation&"\"&fil.name
    loop until err.number=0 
  case "TXT"
    'msgbox TXTrunstring
    shell.run TXTrunstring
    do
      err.clear
      wscript.sleep 5000
      fso.deletefile pdflocation&"\"&fil.name
    loop until err.number=0 
  case else
  end select
end if 'filename test
Next
'wscript.quit
wscript.sleep 3000
set filecol=nothing
loop