Code: Select all
Open sFileName For Output As #n
See if the attached work better when running main.
Edit: for others who may look at maxtmacro, note that it contains a bit of code specific to Max's system
Code: Select all
Sub EV_slideTransitionStarted(oEv)
'Print "Transition Started"
'MsgBox("hello")
Dim n As Integer
Dim Slide As Integer
Dim sFileName As String
Slide = oController.getCurrentSlideIndex
sFileName = "/home/luivin/Desktop/macro/LastSlide.txt"
n = FreeFile()
Open sFileName For Output As #n
Print #n,Slide
close #n
End Sub