Option Explicit 'This script is designed to change the destination directory for sequential file saves. 'It is pretty straightforward so the novice can make modifications as necessary. 'Make sure to turn on the interval option in the script setup screen in imagesalsa with 'an interval time of 1 second. 'Change the following line to the index of the canvas where the sequential saves are being 'performed (index # is found in the canvas properties General tab) Private Const CANVAS_INDEX = 1 'Change to the root folder where the images should be saved. 'For example, on January, 20th, 2006, the files will be saved in 'c:\program files\ImageSalsa\Images\2006-01-20\" 'Make sure to include the last backslash! Private Const IMAGE_ROOT_FOLDER = "c:\program files\ImageSalsa\Images\" Dim LastDate 'last date the interval timer was executed Sub Interval() If LastDate="" Then LastDate=0 'the script was just started 'Get the current date as a number. Since the clock is stored as a decimal number where 'the integer part is the date and the decimal part is the fractional day since Midnight, 'we can just use the integer part and check to see if it changed. Dim CurrentDate CurrentDate=Int(ImageSalsa.CurrentClock) If CurrentDate<>LastDate Then LastDate=CurrentDate 'Create a New Directory Dim FolderName FolderName=IMAGE_ROOT_FOLDER+vbFormat(CurrentDate,"YYYY-MM-DD") Dim FSO Set FSO=CreateObject("Scripting.FileSystemObject") On Error Resume Next Call FSO.CreateFolder(FolderName) On Error Goto 0 Set FSO=Nothing 'Set the directory for the ImageSalsa canvas sequential saves Portfolio.Canvas(CANVAS_INDEX).AutoSave.SequentialDirectory=FolderName End If End Sub