>* Form refresh, triggered by a timer > >Local cLogDir As String, cPrefix As String, cFile As String, cSource As String > >cLogDir = [Logs\] > >If Thisform.Optiongroup1.Option1.Value = 1 > cPrefix = cLogDir + [RMT54] >Else > cPrefix = cLogDir + [RMT54RunErrors] >Endif > >cFile = cPrefix + Dtos(Date()) + [.Log] > >If Not File(cFile) > cFile = cPrefix + Dtos(Date()-1) + [.Log] >Endif > >If File(cFile) > cSource = Filetostr(cFile) >Else > cSource = [There has been no activity for, at the very least, 24 hours...] >Endif > >Thisform.AddProperty('cSource',cSource) > >With Thisform.Pages1._Page1.Tekst && the Edixbox > .ControlSource = Thisform.cSource > .Value = Thisform.cSource >EndWith > >* Now it would be nice if there was a way to display >* the last "page" of Thisform.cSource (I hope this is understandable) > >>
With Thisform.Pages1._Page1.Tekst && the Editbox .ControlSource = Thisform.cSource .Value = Thisform.cSource .SelStart = LEN(Thisform.cSource) EndWith(not tested)