Button OnClick and combo box

I am creating a new tab in word 2010 for custom templates
My xml file is working great and adds 5 buttons on the tab inserted after the info tab. Beside each button I have a combo box that has 9 items
can anyone tell me how I can make my button onAction event open a
OpenFileDialog() based on the cbo selection??
Here is the code I am trying

Sub OnAction(ByVal control As IRibbonControl)
Dim myStream As Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()

If "cbo01" = "item01" Then
openFileDialog1.InitialDirectory = \\xxxxxxxxxxx
ElseIf "cbo1" = "item02" Then
openFileDialog1.InitialDirectory = \\xxxxxxxx
ElseIf "cbo1" = "item03" Then
openFileDialog1.InitialDirectory = \\xxxxxx
ElseIf "cbo1" = "item04" Then
openFileDialog1.InitialDirectory = \\xxxxxxx
ElseIf "cbo1" = "item05" Then
openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item06" Then
openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item07" Then
openFileDialog1.InitialDirectory = \\xxxxxxxxx
ElseIf "cbo1" = "item08" Then
openFileDialog1.InitialDirectory = \\xxxxxxxx
ElseIf "cbo1" = "item09" Then
openFileDialog1.InitialDirectory = \\xxxxxxxx

End If
openFileDialog1.ShowDialog()
End Sub


TIA
LVL 6
Smith and AndersenAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

gman84Commented:
Firstly your better off using a CASE statement instead of an IF statment for this. But to get the value of a combo box you just use it's id and the TEXT property:
e.g.
cbo1.text

Select Case cbo1.text
    Case "item01"
        openFileDialog1.InitialDirectory = \\xxxxxxxxxxx
    Case "item02"
        openFileDialog1.InitialDirectory = \\xxxxxxxx
....
End Select

Open in new window

CodeCruiserCommented:
Is the text displayed in combobox not path of directory? If it is, you can use that as initialdirectory value

openfiledialog1.initialdirectory = cbo1.text

if its not, you can set the text and value of the combobox when populating and then

openfiledialog.initialdirectory = cbo1.selectedvalue
Smith and AndersenAuthor Commented:
Hi Codecruiser

The text displayed in the combobox is drawn from the xml file

<comboBox id="cbo01" label="Template Type" >
                <item id="item01" label="01-Proposal"/>
                <item id="item02" label="02-Project Admin"/>
                <item id="item03" label="03-Permit Docs"/>
                <item id="item04" label="04-Construction Admin"/>
                <item id="item05" label="05-Inter-Office"/>
                <item id="item06" label="06-Prime Consultant"/>
                <item id="item07" label="07-CheckLists"/>
                <item id="item08" label="08-FootPrint"/>
                <item id="item09" label="09-Test-Dont Use"/>
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

CodeCruiserCommented:
Where do you get the actual path?
Smith and AndersenAuthor Commented:
This is the code I have been trying

Sub OnAction(ByVal control As IRibbonControl)
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()

        If "cbo01" = "item01" Then
            openFileDialog1.InitialDirectory = "\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\01-Proposal"
        ElseIf "cbo1" = "item02" Then
            openFileDialog1.InitialDirectory = "\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\02-Project admin"
        ElseIf "cbo1" = "item03" Then
            openFileDialog1.InitialDirectory = "\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\03-Permit Documents"
        ElseIf "cbo1" = "item04" Then
            openFileDialog1.InitialDirectory = "\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\04-Construction Admin"
        ElseIf "cbo1" = "item05" Then
            openFileDialog1.InitialDirectory = "\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\05-Inter-Office"
gman84Commented:
openFileDialog1.InitialDirectory = ""\\torvsrvfile\officetemplates$\TorontoOfficeTemplates\" & cb01.text

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
CodeCruiserCommented:
gman84 got onto it before I could.

It appears that the text in your combobox is actually the foldername that you are trying to set. If this is always the case then you can use the code suggested above to simplify it.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.