Dear Friends, How do we read text file(ASCII format) line by line in VB. After the entire file is read, then how do we delete the file. Pls Help Thanx Anna

Hello Anna, this is one way in which you can read a file but not line by line. private sub command_click() Dim fso,f Const ForReading = 1 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.opentextfile(FrmChatForum.ComOpen.FileName, ForReading) text1.Text = f.read(1000000) end sub note that the set fso = createobject("Scripting.filesystemobject") should all be on one line. NOW my fave bit to delete a file you use the kill key word eg Kill("C:\windows\desktop\a.txt") this will delete the a.txt file on desktop if you want to delete a file in you current directory ie in the directory in which yoor vb code is then you may do so thus kill(app.path & "\a.txt") to read a file line by line you need to use the lineinput method. If it works let me know ill try finding a way to read line by line. Have a nice day

woops one thing the FrmChatForum.ComOpen.FileName should actually be the path of the file you are trying to read eg: ("C:\windows\desktop\a.txt",ForReading) Sori

ok ive found my line input code, the thing is the above code may be used to read the entire file into one text box line input can be used to read each line into Different text boxes. Here how ''''CODE'''' Dim timepstring As String Dim TheIndex As Integer Private Sub form_load() TheIndex = 0 End Sub Private Sub Command1_Click() TheIndex = 0 Open ("C:\windows\desktop\a.txt") For Input As #1 Do Until EOF(1) Line Input #1, Tempstring Text1(TheIndex).Text = Text1(TheIndex).Text & vbCrLf & Tempstring TheIndex = TheIndex + 1 Loop Close #1 End Sub '''''END'''' alturnetively you can remove the Theindex variable to read the text into one textbox hope the above examples help