Keskustelu: Ohjelmointikysymykset: [VB6] Tiedoston koko ja autoscrollaus

Niin tarttisin kaksi koodia, semmosen että jos tiedoston koko on muuttunut niin scrollaa Text1:nen automaattisesti alas.
EDIT: Löysin jo auto-scroll downin:
Text1.SelStart = Len(Text1.Text)

Tiedoston koon saat selville FileLen-funktiolla. Jossain pitää tietysti olla muistissa aikaisempi koko.

Niin mutta miten tallennan aikaisemman koon?

Dim vanhakoko as Integer
Dim koko as Integer

Private Sub Form_Load()
vanhakoko = FileLen("C:\teksti.txt")
End Sub

Private Sub Timer1_Timer()
koko = FileLen("C:\teksti.txt")
If koko > vanhakoko Then
Text1.SelStart = Len(Text1.Text)
vanhakoko = koko
End If
End Sub

Toimiskohan toi?

Muuten näyttää toimivalta, mutta uuden tiedoston lataus tekstikenttään puuttuu. Vai onko tekstikentässä jotain muuta?

Joo on siinä jotai muuta.