Here's and example from www.microsoft.com

For Each foundFile As String In My.Computer.FileSystem.GetFiles(
My.Computer.FileSystem.SpecialDirectories.MyDocuments,
Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.dll")

Listbox1.Items.Add(foundFile)

Next

This link may help you http://www.vb-helper.com/howto_2005_read_write_classic.html[^]

Private Const NUM_VALUES As Integer = 10
Const INTEGER_SIZE As Integer = 4

Private m_TextBoxes() As TextBox

' Load saved values.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles MyBase.Load
m_TextBoxes = New TextBox() {TextBox1, TextBox2, _
TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, _
TextBox8, TextBox9, TextBox10}

' Get the file name.
Dim file\_name As String = GetFileName()

' See if the file exists.
If System.IO.File.Exists(file\_name) Then
    ' Open the file.
    Dim file\_num As Integer = FreeFile()
    FileOpen(file\_num, file\_name, \_
        OpenMode.Binary, OpenAccess.Read, \_
        OpenShare.Shared, INTEGER\_SIZE)

    ' Read the array.
    Dim integers(NUM\_VALUES - 1) As Integer
    FileGet(file\_num, integers)

    ' Close the file.
    FileClose(file\_num)

    ' Display values.
    For i As Integer = 0 To NUM\_VALUES - 1
        m\_TextBoxes(i).Text = integers(i).ToString()
    Next i
End If

End Sub

' Save the current values.
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal _
e As System.Windows.Forms.FormClosingEventArgs) Handles _
Me.FormClosing
' Get the file name.
Dim file_name As String = GetFileName()

' Create the file.
Dim file\_num As Integer = FreeFile()
FileOpen(file\_num, file\_name, \_
    OpenMode.Binary, OpenAccess.Write, \_
    OpenShare.Shared, INTEGER\_SIZE)

' Write the array.
Dim integers(NUM\_VALUES - 1) As Integer
For i As Integer = 0 To NUM\_VALUES - 1
    integers(i) = Val(m\_TextBoxes(i).Text)
Next i
FilePut(file\_num, integers)

' Close the file.
FileClose(file\_num)

End Sub