' Project Script
Private Sub Batch_AfterRotatePage(ByRef pXDocInfo As CASCADELib.CscXDocInfo, ByVal RotatedPageIndex As Long, ByVal Rotation As CASCADELib.CscXDocRotationTypeEnum)
Dim objFSO, objFolder, objShell, objFile
Dim logsDirectory, logFile
logsDirectory = "c:\Logs"
logFile = logsDirectory & "\log.txt"
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Check if the log directory folder exists
If objFSO.FolderExists(logsDirectory) Then
Set objFolder = objFSO.GetFolder(logsDirectory)
Else
Set objFolder = objFSO.CreateFolder(logsDirectory)
End If
' Check if the log file exists
If objFSO.FileExists(logFile) Then
' reading = 1, writing = 2, appending = 8
Set objFile = objFSO.OpenTextFile(logFile, 8, True)
Else
Set objFile = objFSO.CreateTextFile(logFile)
End If
'Write to log file
objFile.WriteLine CStr(Now) & ": Batch_AfterRotatePage"
Set objFolder = Nothing
Set objFile = Nothing
End Sub