text file to msflexgrid

[nf_vb]

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

[junlo]

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

[Hack]

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

[nf_vb]

you need to add

microsoft scripting runtime

is in the list

you need that to use file functions