General information
Category:
Coding, syntax & commands
Title:
Help With Variable Not Defined
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only