All pastes #430677 Raw Edit

Unnamed

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

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

End Sub