DataMystic

Code: Select all

'FileWatcher script - move files to processed folder, and generate printer stub for them

Option Explicit

const processed = "c:\processed\"
const codes = "c:\codes\"
const prefix = "ABCD"


dim objArgs
dim fso
dim filename

Function ExecuteWithTerminalOutput(cmd)
	dim WshShell
            Set WshShell = WScript.CreateObject("WScript.Shell")
            
            'use this line to hide the window, and wait until the new process finishes
            'useful for debugging
            WshShell.Run cmd, 1, true
            'use this line below when debugging is not needed
'            WshShell.Run cmd,0

            ExecuteWithTerminalOutput = 0
End Function


Function random_name( filename )

	dim MyFile
	dim new_id
	dim new_name
	dim print_file

	Randomize
	Do
		new_id = Int( 1000000 * Rnd + 1 )
		new_name = processed & prefix & new_id & ".jpg"
	Loop While fso.FileExists( new_name )

	random_name = new_name	

	'generate file to print
	print_file = codes & new_id & ".txt"
	Set MyFile = fso.CreateTextFile( print_file, True)
	MyFile.WriteLine( "My photography company, www.myphoto.com")
	MyFile.WriteLine( "Your photo id: " & new_id)
	MyFile.WriteLine( "------------------------" )
	MyFile.Close

	'now print it
	ExecuteWithTerminalOutput("NotePad.exe /p " & print_file )

end Function 



'---------------- start ----------------

Set fso = CreateObject("Scripting.FileSystemObject")

'Set a reference to the arguments
Set objArgs = Wscript.Arguments

dim move_name

for each filename in objArgs

	If fso.FileExists( filename ) Then
		move_name = random_name( filename )
		fso.MoveFile filename, move_name
	End If

next

Set fso = Nothing
Set objArgs = Nothing