hello
how open blank or empty text file i used the code but not open file
error show
run time error 62
input past end of file
code
Code:Private Sub Command1_Click() openFilename = "F:\pbsr100.txt" If Dir(openFilename) <> "" Then Dim I As String Open openFilename For Input As #1 Do Input #1, I List1.AddItem I Loop Until EOF(1) Close #1 Else End If End Sub