Combo box issue

Ok i have a combo box... that gets populated apon running....
I want to be able to have something selected and click a button and have an action taken when the button is clicked...
Here is my Code:

VB Code:

Dim pathC, PathA, PathD, PathE As Object
    Dim mp3, wav As Object
 
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mp3 = ".Mp3"
        wav = ".Wav"
        pathC = "C:\"
        PathA = "A:\"
        PathD = "D:\"
        PathE = "E:\"
        cmbDrives.Items.Add(pathC)
        cmbDrives.Items.Add(PathA)
        cmbDrives.Items.Add(PathD)
        cmbDrives.Items.Add(PathE)
        cmbType.Items.Add(mp3)
        cmbType.Items.Add(wav)
    End Sub

When i Click the button Search i want it to look at the selected field in the combobox (CmbDrives) and just tell me what is selected...(through a msgbox)
there is more but that is my only question untill i get stuck again

VB Code:

MessageBox.Show(ComboBox1.SelectedItem.ToString)

?

Hi.

There are two ways of doing that.

VB Code:

MsgBox(ComboBox1.SelectedIndex) 'Displays a number from 0-TheNumberOfItems-1
MsgBox(ComboBox1.Text) ' Displays the current text in the combo.

EDIT: Damn mendhak. You beat me to the punch...:afrog:

VB Code:

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        If cmbDrives.SelectedItem(mp3) Then
            MessageBox.Show("yay")
        End If
    End Sub

i get an error :(
cast from string ".mp3" to integer no valid ... :(

You are using cmbDrives, but you add the MP3 to cmbType?!?
You probably should check cmbType instead.

VB Code:

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        If cmbType.Text=mp3 Then
            MessageBox.Show("yay")
        End If
    End Sub

VB Code:

Imports System.IO
Public Class form1
    Inherits System.Windows.Forms.Form
    Dim pathC, PathA, PathD, PathE As Object
    Dim mp3, wav As Object
#Region " Windows Form Designer generated code "
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents clbResults As System.Windows.Forms.CheckedListBox
    Friend WithEvents btnSearch As System.Windows.Forms.Button
    Friend WithEvents btnDelete As System.Windows.Forms.Button
    Friend WithEvents btnMove As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents cmbDrives As System.Windows.Forms.ComboBox
    Friend WithEvents cmbType As System.Windows.Forms.ComboBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.clbResults = New System.Windows.Forms.CheckedListBox
        Me.cmbDrives = New System.Windows.Forms.ComboBox
        Me.cmbType = New System.Windows.Forms.ComboBox
        Me.btnSearch = New System.Windows.Forms.Button
        Me.btnDelete = New System.Windows.Forms.Button
        Me.btnMove = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog
        Me.Label5 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'clbResults
        '
        Me.clbResults.Location = New System.Drawing.Point(208, 24)
        Me.clbResults.Name = "clbResults"
        Me.clbResults.Size = New System.Drawing.Size(280, 244)
        Me.clbResults.TabIndex = 0
        '
        'cmbDrives
        '
        Me.cmbDrives.Location = New System.Drawing.Point(144, 24)
        Me.cmbDrives.Name = "cmbDrives"
        Me.cmbDrives.Size = New System.Drawing.Size(48, 21)
        Me.cmbDrives.TabIndex = 1
        '
        'cmbType
        '
        Me.cmbType.Location = New System.Drawing.Point(136, 48)
        Me.cmbType.Name = "cmbType"
        Me.cmbType.Size = New System.Drawing.Size(56, 21)
        Me.cmbType.TabIndex = 1
        '
        'btnSearch
        '
        Me.btnSearch.Location = New System.Drawing.Point(128, 80)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.TabIndex = 2
        Me.btnSearch.Text = "Search"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(128, 112)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 3
        Me.btnDelete.Text = "Delete"
        '
        'btnMove
        '
        Me.btnMove.Location = New System.Drawing.Point(128, 256)
        Me.btnMove.Name = "btnMove"
        Me.btnMove.TabIndex = 4
        Me.btnMove.Text = "Move"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(104, 16)
        Me.Label1.TabIndex = 6
        Me.Label1.Text = "1. Select Drive"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 48)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(104, 16)
        Me.Label2.TabIndex = 6
        Me.Label2.Text = "2. Select File Type"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 120)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(120, 16)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "Delete Checked Files"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 88)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(104, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "Search for Files"
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(208, 264)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(280, 16)
        Me.ProgressBar1.TabIndex = 7
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 256)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(120, 16)
        Me.Label5.TabIndex = 8
        Me.Label5.Text = "Move Selected Files"
        '
        'form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(496, 285)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.btnMove)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnSearch)
        Me.Controls.Add(Me.cmbDrives)
        Me.Controls.Add(Me.clbResults)
        Me.Controls.Add(Me.cmbType)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label4)
        Me.Name = "form1"
        Me.Text = "Move Um (v 1.1) "
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mp3 = ".Mp3"
        wav = ".Wav"
        pathC = "C:\"
        PathA = "A:\"
        PathD = "D:\"
        PathE = "E:\"
        cmbDrives.Items.Add(pathC)
        cmbDrives.Items.Add(PathA)
        cmbDrives.Items.Add(PathD)
        cmbDrives.Items.Add(PathE)
        cmbType.Items.Add(mp3)
        cmbType.Items.Add(wav)
    End Sub
 
    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        If cmbDrives.SelectedItem(mp3) Then
            MessageBox.Show("happy")
        End If
    End Sub
End Class

brings up the error

whopps didnt see u posted

We posted at the same time :D S**t happens. :D

Now lemme explain what i want to happen.... this application im creating is going to search for certain file types in certain drives....

I have anougher combo box (holds the information: .mp3, .wav)
i want when search btn is clicked to check for the drive (got it doing that) and to check to see what file type was selected... i want it to scan the drive for thoose file types... then populate them into a checkboxlist... possible?

Hi.

Yes, it's possible.
In order for this sample to work you need the following:
A new form, with 2 combos, 1 button and 1 checklistbox.
Name the combos cmbDrive and cmbType Set their drop down style to "DropDown". Name the button btnSearch.
Leave the rest "as is".

Then paste this code into the form.

VB Code:

Private Sub Search(ByVal Path As String, ByVal Filter As String)
        Dim dInfo As IO.DirectoryInfo
        Dim dInfos() As IO.DirectoryInfo
        Dim fInfo As IO.FileInfo
        Dim fInfos() As IO.FileInfo
 
        'Search for files in the current path
        Try
            Console.WriteLine("Searchin " & Path)
            fInfos = New IO.DirectoryInfo(Path).GetFiles(Filter)
            For Each fInfo In fInfos
                CheckedListBox1.Items.Add(fInfo.FullName)
                CheckedListBox1.Refresh()
            Next
        Catch
        End Try
 
        'Search for subdirs in the currentpath
        Try
            dInfos = New IO.DirectoryInfo(Path).GetDirectories
            For Each dInfo In dInfos
                'call search again the check for files in the subdir.
                Me.Search(dInfo.FullName, Filter)
            Next
        Catch
        End Try
 
    End Sub
    Private Sub frmTemp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbDrive.Items.Add("C:\")
        cmbDrive.Items.Add("D:\")
 
        cmbType.Items.Add(".wav")
        cmbType.Items.Add(".mp3")
    End Sub
    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        CheckedListBox1.Items.Clear()
 
        Me.Search(cmbDrive.Text, "*" & cmbType.Text)
    End Sub

well ty... i got 2 more questions... one could be long.. idk never used it... and 1 easy.... is there a way so i just name the file not the whole directory its found in?
and then can i apply a Progress bar?

Yeah, the name part is easy. Just use fInfo.Name instead of fInfo.FullName.

The progressbar is a bit harder. For it to work properly you would need to know the number of files that you will end up with.
The closest thing would be to make a progressbar with a max value of 100, and the just reset it and start over whenever it runs full. This will not be an accurate measurement, since it just counts away, but it will let the user know that something is going on.

Just add a counter within each "For Each fInfo In Finfos".
If the value of that counter exceeds the max of the progressbar set it to 0. Then set the progressbar value=counter.
Remember to do a refresh.

Hope it helps.

well of course there is an issue.... :)
i changed the fullname. to name... and now nothing happens.... nothing is displayed at all

Strange. Are you sure you changed the right line?

CheckedListBox1.Items.Add(fInfo.FullName)

to

CheckedListBox1.Items.Add(fInfo.Name)

well heres my program so far.. i made the changes so u can check it out... maybe its jsut not working on my comp... when i run the prog and search it does nothing........

Hi.

Found it.

the line

VB Code:

Me.Search(dinfo.Name, Filter)

should still be FullName.
Only fInfo should be Name.

i thank you :)

ok but now... this question is abit harder....
when i search i find some outrageous mp3's.... is there a way where i can search only certain folders..... Or by pas like system and game folders?

Well, that's a bit harder.

You can easily check for System and Hidden, but games and programs are a lot harder.

You can check dInfo.Attributes to see if it's a hidden and/or system directory before calling For Each fInfo In fInfos...

VB Code:

If (dInfo.Attributes And IO.FileAttributes.System) = IO.FileAttributes.System Then
            DontSearch = True
        End If
        If (dInfo.Attributes And IO.FileAttributes.Hidden) = IO.FileAttributes.Hidden Then
            DontSearch = True
        End If

If you want to, you could also check dInfo.Name to see if it should be searched or not, but that would require a list of names that should be known beforehand.
Perhaps a collection of strings that the user can enter themselves.
Then check the collection to see if the name is present. If it is, then don't search.
This way the user can narrow the search as they like.
If you don't want that, I can't see any other easy way to determine wether or not to search it.