>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
lstFiles is a listbox that you need to place on your form.
Éric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com