All pastes #430671 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-04-09 04:43 UTC
rendered paste body
Private Sub Command1_Click()
Dim Data As String
Dim file As Data
Dim size As String
Dim filesize As Integer
Dim curpos As Long

List1.AddItem "Checking files..."
lblStatus.Caption = "Reading " & Str(FileLen(txtInput)) & " bytes"
List1.AddItem Str(FileLen(txtInput)) & "bytes"
size = Str(FileLen(txtInput))
filesize = Int(Trim(size))
curpos = 1

End Sub