Hi All,

Here is the old VFPer trying to learn to spell VB again. I'm trying to write an app. to read a file from the dialog box and select it. I got the following code from "Mastering VBA 6" Sybex. I Would really appricate some help with this. TIA.

Regards,

Paige


Option Explicit
Option Base 1

Private Sub UserForm_Initialize()
'
Dim strFileArray() As String
Dim strFFile As String
Dim intCount As Integer

'
strFFile = Dir("C:\My Documents\*.txt")
intCount = 1
'
Do While strFFile <> ""
If strFFile <> "." And strFFile <> ".." Then
ReDim Preserve strFileArray(intCount)
strFileArray(intCount) = strFFile
intCount = intCount + 1
strFFile = Dir()
End If
'
Loop
'
' I get a "Variable not defined" error on the following line:

lstFiles.List() = strFileArray

' Any suggestions? When I create a "Dim lstFiles As String" I get an error there
'
End Sub
'






Private Sub CommandButton2_Click()
If lstFiles.Value <> "" Then Documents.Open _
FileName:=" C:\My Documents\" & lstFiles.Value
'
End Sub