i am using an embedded vb application to open and display the contents of a file in a test box....


Dim fso As FileCtl.FileSystem
Dim Fil As FileCtl.File
Dim StrFullFileName As String
Dim sTheData As String

StrFullFileName = "\Program Files\text.txt"

Set fso = CreateObject("FileCtl.FileSystem")
Set Fil = CreateObject("FileCtl.File")

If Len(fso.Dir(StrFullFileName)) > 0 Then
Fil.Open StrFullFileName, fsModeInput, fsAccessRead
sTheData = Fil.LineInputString
 Text1.Text = sTheData
Else
MsgBox StrFullFileName & " does not exist."
End If

Set fso = Nothing
Set Fil = Nothing

but each time i run the program i am getting an error saying that the file do not exist ..this is my file location c:\Program Files\text.txt .Even if i give the full path i am getting the same error.....
please give a solution for this problem

thanks in advance

Does "FileCtl.FileSystem" contain any method that validates for FILE_EXISITENCE? If so try using that and check if the file exists. Or move the File to some other location, where the folder name doesn't contain SPACE within it(like that of "Program files").

Post here if that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

Private Sub CmdLoad_Click()
File1.Open "\text.txt", fsModeInput
Text1.Text = File1.LineInputString
File1.Close
End Sub

Private Sub Command1_Click()
Dim Save As Variant
File1.Open "\text.txt", fsModeOutput
Save = Text1.Text
File1.LinePrint Save
File1.Close

the above codde is one which gives the same result as the previous one.....
i am having two problems here..
1)I want to open a file from the location i desire
2)Only the first line is retrived when i call back the file...i want the whole text content of the file

the above codes saves the content i typed in the text.txt in some default location and retrives it from there...
please help me
thanks in advance
Dawn

You got to read the text file till the ENF OF STREAM and process it further. I am not sure what all methods does the object that you use for processing text files support. Check its documentation for more details.

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection