Opening all files in a folder

[Vandana Rola]

Hello everyone,

I am a beginner in VB.net. I am trying to write a program which will
open around 300 files (which are .msg files)in a folder and extract
the responses of the questions in those files. I have been able to
open and extract data from one file using ...opentext(fil ename) method
but I am not able to figure out how to loop through each file in the
folder, open it, and extract data. I have been able to find a way to
extract those files in a list box. Is there any method to open those
file from listbox. Any help would be appreciated.

For your reference here is the code for the program:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
' make a reference to a directory
Dim di As New IO.DirectoryInf o("Surveys\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo

'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items. Add(dra)
Next
End Sub

Private Sub AddButton_Click (ByVal sender As Object, ByVal e As
System.EventArg s) Handles AddButton.Click
Dim objStreamwriter As System.IO.Strea mWriter
Dim objStreamReader As System.IO.Strea mReader
Dim strLine As String, intIndex, intNext, intAnswer, intFrom,
intDot, intAngle As Integer

Dim di As New IO.DirectoryInf o("c:\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo

For Each dra In diar1

objStreamReader = System.IO.File. OpenText(?)
Do Until objStreamReader .Peek = -1
strLine = objStreamReader .ReadLine()
objStreamwriter =
System.IO.File. AppendText("stu dentSurvey.txt" )

If (strLine.Starts With("From")) Then
objStreamwriter .WriteLine()
intFrom = strLine.IndexOf ("dl")
intDot = strLine.IndexOf (".")
objStreamwriter .Write(strLine. Substring(intFr om +
3, intDot - intFrom - 3))
objStreamwriter .Write(",")
End If
If ((strLine.Start sWith("Question ") = True Or
strLine.StartsW ith("Answer")) AndAlso UCase(strLine). EndsWith("<BR>" )
= False) Then

If (strLine.Starts With("Answer")) Then
strLine = objStreamReader .ReadLine()
objStreamwriter .Write(strLine)
objStreamwriter .Write(",")
End If

strLine = objStreamReader .ReadLine()
intIndex = strLine.IndexOf ("[X]")
intAnswer = strLine.IndexOf ("Answer")

If intIndex > 0 Then
intNext = strLine.IndexOf ("[", intIndex + 1)
intAngle = strLine.IndexOf ("<", intIndex + 1)
If intNext > 0 Then

objStreamwriter .Write(strLine. Substring((intI ndex + 7), intNext -
intIndex - 7))
Else
If intAngle > 0 Then

objStreamwriter .Write(strLine. Substring((intI ndex + 7), intAngle -
intIndex - 7))
End If

End If
objStreamwriter .Write(",")
End If

End If

objStreamwriter .Close()
Loop

objStreamReader .Close()
Next

End Sub

[Sakharam Phapale]

Hi Vandana,

Look at following example.

Thanks and Regards
Sakharam Phapale

C# Example

System.IO.Direc toryInfo di;
di = new System.IO.Direc toryInfo("D:\\P ublic");

foreach (System.IO.File Info diar in di.GetFiles())
{
listBox1.Items. Add (diar.FullName. ToString() );
}

VB Example

Dim di as System.Io.Direc toryInfo
di = new System.IO.Direc toryInfo("D:\Pu blic")
Dim diar as System.IO.FileI nfo
For Each diar In di.GetFiles()
listBox1.Items. Add (diar.FullName. ToString() );
Next
"Vandana Rola" <vr****@yahoo.c om> wrote in message
news:b9******** *************** ***@posting.goo gle.com...

Hello everyone,

I am a beginner in VB.net. I am trying to write a program which will
open around 300 files (which are .msg files)in a folder and extract
the responses of the questions in those files. I have been able to
open and extract data from one file using ...opentext(fil ename) method
but I am not able to figure out how to loop through each file in the
folder, open it, and extract data. I have been able to find a way to
extract those files in a list box. Is there any method to open those
file from listbox. Any help would be appreciated.

For your reference here is the code for the program:
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
' make a reference to a directory
Dim di As New IO.DirectoryInf o("Surveys\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo

'list the names of all files in the specified directory
For Each dra In diar1
ListBox1.Items. Add(dra)
Next
End Sub

Private Sub AddButton_Click (ByVal sender As Object, ByVal e As
System.EventArg s) Handles AddButton.Click
Dim objStreamwriter As System.IO.Strea mWriter
Dim objStreamReader As System.IO.Strea mReader
Dim strLine As String, intIndex, intNext, intAnswer, intFrom,
intDot, intAngle As Integer

Dim di As New IO.DirectoryInf o("c:\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo

For Each dra In diar1

objStreamReader = System.IO.File. OpenText(?)
Do Until objStreamReader .Peek = -1
strLine = objStreamReader .ReadLine()
objStreamwriter =
System.IO.File. AppendText("stu dentSurvey.txt" )

If (strLine.Starts With("From")) Then
objStreamwriter .WriteLine()
intFrom = strLine.IndexOf ("dl")
intDot = strLine.IndexOf (".")
objStreamwriter .Write(strLine. Substring(intFr om +
3, intDot - intFrom - 3))
objStreamwriter .Write(",")
End If
If ((strLine.Start sWith("Question ") = True Or
strLine.StartsW ith("Answer")) AndAlso UCase(strLine). EndsWith("<BR>" )
= False) Then

If (strLine.Starts With("Answer")) Then
strLine = objStreamReader .ReadLine()
objStreamwriter .Write(strLine)
objStreamwriter .Write(",")
End If

strLine = objStreamReader .ReadLine()
intIndex = strLine.IndexOf ("[X]")
intAnswer = strLine.IndexOf ("Answer")

If intIndex > 0 Then
intNext = strLine.IndexOf ("[", intIndex + 1)
intAngle = strLine.IndexOf ("<", intIndex + 1)
If intNext > 0 Then

objStreamwriter .Write(strLine. Substring((intI ndex + 7), intNext -
intIndex - 7))
Else
If intAngle > 0 Then

objStreamwriter .Write(strLine. Substring((intI ndex + 7), intAngle -
intIndex - 7))
End If

End If
objStreamwriter .Write(",")
End If

End If

objStreamwriter .Close()
Loop

objStreamReader .Close()
Next

End Sub