Visual Basic 6 help

[nightsider]

hi i have a some wat limmeted knowledge of visual basic "my college course doesn't teach me much lol" i need to list the contents of a text file in a list box and i cant figure out how to do it this is a program i wrote for a college assignment its an insurance calculator i have copied the list box part out

Private Sub Form_Load()

'load the following items into the list box when the form loads '

lstCrimConvic.AddItem "Yes"

lstCrimConvic.AddItem "No"

End Sub

what is it i need to put in place of the AddItem "yes"

thanking you in advance

[Savan]

im not good with list boxes (dont use them much, but I think there needs to be an =

Private Sub Form_Load()

'load the following items into the list box when the form loads '

lstCrimConvic.AddItem ="Yes"
lstCrimConvic.AddItem ="No"

End Sub

[Nemo]

You have the construct ok in your code - listbox.AddItem "Item to Add" (no "=" sign).

 

So, what exactly is your question? Are you asking how to open a text file for reading and iterate through it and add the contents to the listbox?

[nightsider]

yea basically open a text file and dump the contents into a list box for selection by the end user

[Nemo]

You need to go to MSDN and read up on FileSystemObject. This is what gives you access to files, directories etc.

 

This is something I threw together real quick you'll need to clean it up to make it work for you. Make sure you add a reference to the Microsoft Scripting Runtime object in your VB project and change the file name to whatever your path and file name are.

 

Sub readfile()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\testfile.txt", ForReading)

While Not objTextFile.AtEndOfStream

	ListBox.AddItem objTextFile.ReadLine

Wend

End Sub

Edited March 25, 2007 by Nemo

[nightsider]

this is the progress I have made so far

Private Sub lstmov()
Sub readfile()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\mov.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstmov.AddItem objTextFile.ReadLine

Wend

End Sub
Private Sub lstgame()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\game.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstgame.AddItem objTextFile.ReadLine
End Sub
Private Sub lstmusic()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\music.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstmusic.AddItem objTextFile.ReadLine
End Sub
Private Sub lstsoft()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\soft.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstsoft.AddItem objTextFile.ReadLine
End Sub

i have run into this error

Can some one tell me where I am going wrong thank you?

Edited March 26, 2007 by thecryptkeeper

[Nemo]

I'm not sure what's going on because I can't see your whole project, but I would not put the 4 subroutines you created within the Sub lstmov().

 

Edit: Also, the last subroutine was missing a Wend statement.

 

You should have something like this:

Private Sub lstmov()

'call you other subroutines from here 

End Sub
Sub readfile()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\mov.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstmov.AddItem objTextFile.ReadLine

Wend

End Sub
Private Sub lstgame()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\game.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstgame.AddItem objTextFile.ReadLine
End Sub
Private Sub lstmusic()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\music.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstmusic.AddItem objTextFile.ReadLine
End Sub
Private Sub lstsoft()
Dim objFSO As Scripting.FileSystemObject
Dim objTextFile As TextStream

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TGN Soft\Enigma\list\soft.txt", ForReading)

While Not objTextFile.AtEndOfStream

	lstsoft.AddItem objTextFile.ReadLine

Wend
End Sub

Edited March 26, 2007 by Nemo

[Savan]

dont dim in sub, its bad standards. Dim in General

 

and if the txt file is in the same folder as the project, you can just use "app.path\mov.txt". rather than "C:Program Files...\mov.txt"