* 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)