Code: Select all
'FileWatcher script - move files to processed folder, and generate printer stub for them
const processed = "c:\processed\"
const codes = "c:\codes\"
const prefix = "ABCD"
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
Function random_name( filename )
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( "------------------------" )
'now print it
ExecuteWithTerminalOutput("NotePad.exe /p " & print_file )
'---------------- start ----------------
Set fso = CreateObject("Scripting.FileSystemObject")
'Set a reference to the arguments
Set objArgs = Wscript.Arguments
for each filename in objArgs
If fso.FileExists( filename ) Then
move_name = random_name( filename )
fso.MoveFile filename, move_name
Set fso = Nothing
Set objArgs = Nothing
Photo marketing is a generic term for when photography is used to deliver a call to action for a brand. It is the process where you take a photograph or video with the aim of getting people, i.e. your target audience to interact with your brand offline and online. It is very useful for your brand to have a tool that can drive people to online or social channels where the brand experience they enjoyed and remember is further extended into the online environment.