Hem / Tips & tricks
Private Sub Command1_Click() Dim sFilstorlek As Integer sFilstorlek = FileLen("C:\Boot.ini") Label1.Caption = Str(sFilstorlek)End Sub