Im trying to make a little program that list all folders/subfolders in a directory that I specify in a TextBox, and I also want the program to show a messagebox If i write something wrong in the textbox like folders that not exits etc. but I cant get this to work.

This is my code so far:

Public Class Form1

    Private Sub btnListFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisInnhold.Click
        'Create variabel
        Dim strFolder As String
        Dim strFolderName As String

        'Textbox for writing folder/station name
        strFolderName = TextBox1.Text

        'list all folders
        For Each strFolder In _
        My.Computer.FileSystem.GetDirectories(strFolderNam e)

            If My.Computer.FileSystem.DirectoryExists(strFolder) Then

                'Add the item to the list
                ListBox1.Items.Add(strFolder)

                'Tell the user
                MessageBox.Show("Found it, exiting the loop now.", "Info")
                'Quit the loop early

            Else
                MessageBox.Show("Folder/station does not exists.", "Error")

                Exit For

            End If

        Next

    End Sub

hello!!
"Private Sub btnListFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisInnhold.Click"

why is "btnListFolder_Click" different in "Handles btnVisInnhold.Click"? I think they should be the same?

Follow this link, http://msdn2.microsoft.com/en-us/vbasic/default.aspx, and there are two download links on the right hand of the page for "101 Code Samples for VB 2005" and "101 Code Samples for VB 2003" I belive that the later link has an example of what you are trying to accomplish. That sample should open and run in VB 2005 with little or no modifications necessary.

Thearon