Populating a combobox via a StreamReader and an Array

[trippbrown]

Solved Edited October 30, 2003 by trippbrown

[russgreen]

Was yours anything like this?

 

Public Function PopulateComboFromFile(ByVal ListControl As ComboBox, ByVal FullPath As String, _

ByVal Blank As Boolean, Optional ByVal Delimiter As String = vbCrLf) As Boolean

 

Dim objFso As New Scripting.FileSystemObject()

 

Dim objTextStream As Scripting.TextStream

Dim strContents As String

Dim arrContents() As String

Dim lCtr As Long, lCount As Long

 

Try

'Ensure file exists

If Dir(FullPath) = "" Then

MsgBox("The file " & FullPath & " does not exist", MsgBoxStyle.OKOnly, "Load contract lists")

Exit Function

End If

 

'Get file contents

objTextStream = objFso.OpenTextFile(FullPath, Scripting.IOMode.ForReading)

strContents = objTextStream.ReadAll

objTextStream.Close()

 

'Split file contents based on delimiter

arrContents = Split(strContents, Delimiter)

lCount = UBound(arrContents)

 

ListControl.Items.Clear() 'Clear List Control.

ListControl.Items.AddRange(arrContents) 'Populate list control

If Blank = True Then

ListControl.Items.AddRange(New Object() {" "}) 'add blank rows to each combo

End If

 

PopulateComboFromFile = True

Catch ex As Exception

objTextStream = Nothing

objFso = Nothing

MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Load contract lists")

End Try

End Function