loading a notepad file (.txt) to a listbox

[richy176]

i have a notepad file which is C:/Students.txt and i want the file to open up into a listbox on VB. is there any way i can do that?

This is what i have so far, but i recieve an error saying "Type Mismatch" does anyone know what im doing wrong? if so please help me correct it!

---------------------------
Dim List As String <<Declaration
-----------------------------
Open "C:\students.txt" For Input As #1
Input #1, List
StudentList.ListIndex = List

[Microchip]

i have a notepad file which is C:/Students.txt and i want the file to open up into a listbox on VB. is there any way i can do that?

This is what i have so far, but i recieve an error saying "Type Mismatch" does anyone know what im doing wrong? if so please help me correct it!

---------------------------
Dim List As String <<Declaration
-----------------------------
Open "C:\students.txt" For Input As #1
Input #1, List
StudentList.ListIndex = List

ListIndex is a NUMBER. List is defined a s a string. Hence your type mismatch.

You may wish to use the AddItem method.

[debasisdas]

Read the file line by line and add it to the listbox using ADDITEM method.

But if u want to displat tthe content of text file in a control , rich textbox control would be a better option for you.

[ansumansahu]

Read the file line by line and add it to the listbox using ADDITEM method.

But if u want to displat tthe content of text file in a control , rich textbox control would be a better option for you.

Hi ,

Yes debasis is correct. If you just want to display the content of the file go for a rich text box control. What is the purpose of using the list box?? Do you have a specific requirement.

-ansuman sahu

[ajusingh222]

Option Explicit

Private Sub Form_Load()
dlgOpenFile.InitDir = App.Path
dlgOpenFile.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
dlgOpenFile.FilterIndex = 1
dlgOpenFile.DialogTitle = "Open File"
dlgOpenFile.Flags = _
cdlOFNFileMustExist + _
cdlOFNHideReadOnly + _
cdlOFNLongNames + _
cdlOFNExplorer
dlgOpenFile.CancelError = True
End Sub

Private Sub Form_Resize()
txtFile.Move 0, 0, ScaleWidth, ScaleHeight
End Sub


Private Sub mnuFileExit_Click()
Unload Me
End Sub

Private Sub mnuFileOpen_Click()
Dim fnum As Integer

On Error Resume Next
dlgOpenFile.ShowOpen
If Err.Number = cdlCancel Then
' The user canceled.
Exit Sub
ElseIf Err.Number <> 0 Then
' Unknown error.
MsgBox "Error " & Format$(Err.Number) & _
" selecting file." & vbCrLf & _
Err.Description
Exit Sub
End If
On Error GoTo 0

' Read the file.
fnum = FreeFile
Open dlgOpenFile.FileName For Input As #fnum
txtFile.Text = Input$(LOF(fnum), fnum)
Close #fnum
End Sub