text file to msflexgrid

i have data in the text file. i want to put the data in msflexgrid in three columns. how to write the code to do that?

try this little example:

Private fso As New FileSystemObject
Private strName As String

Private Sub readfile()

strName = "C:\Output.txt"
On Error GoTo a
With fso
Set strm = .OpenTextFile(strName, ForReading)
With strm
Do Until .AtEndOfStream
For i = 0 To MSFlexGrid1.Rows
For k = 0 To MSFlexGrid1.Cols
MSFlexGrid1.TextMatrix(i, k) = MSFlexGrid1.TextMatrix(i, k) & .ReadLine
Next k
Next i
Loop
End With
End With
Exit Sub
a:
Exit sub
End Sub

Private Sub Command1_Click()
readfile
End Sub

Quote:

---

Originally Posted by nf_vb

try this little example

Private fso As New FileSystemObject
Private strName As String

Private Sub readfile()

strName = "C:\Output.txt"
On Error GoTo a
With fso
Set strm = .OpenTextFile(strName, ForReading)
With strm
Do Until .AtEndOfStream
For i = 0 To MSFlexGrid1.Rows
For k = 0 To MSFlexGrid1.Cols
MSFlexGrid1.TextMatrix(i, k) = MSFlexGrid1.TextMatrix(i, k) & .ReadLine
Next k
Next i
Loop
End With
End With
Exit Sub
a:
Exit sub
End Sub

Private Sub Command1_Click()
readfile
End Sub

---

i have try the code, but it came out an error "compile error: user defined type not defined" and point to the code (Private fso As New FileSystemObject)

add to vb6 references microsoft scriptting runtime

and create a module with this code

Public Const MAX_PATH = 260

Type FILETIME ' 8 Bytes
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA ' 318 Bytes
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved_ As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Declare Function FindFirstFile& Lib "kernel32" _
Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA)

Public Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long

Function FileFound(strFileName As String) As Boolean
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFirst As Long
hFindFirst = FindFirstFile(strFileName, lpFindFileData)

If hFindFirst > 0 Then
FindClose hFindFirst
FileFound = True
Else
FileFound = False
End If
End Function

what function of microsoft scriptting runtime ??????

Quote:

---

Originally Posted by junlo

what function of microsoft scriptting runtime ??????

---

Not a function, a reference.

From your IDE, click Project/References

Locate the Microsoft Scripting Runtime Library
Check the box next to it
Click Ok

you need to add

microsoft scripting runtime

is in the list

you need that to use file functions