open text - URL document from listbox and determin which fil

[Bradley]

Developers

My name is Bradley and I have been developing for 2 years now using visual basic 2008 express edition I am also a developer and use assembly programming language.

Problem

I have a listbox that displays all files in a spersific directory and already have the code for showing the files and there extentions the probelm I am faceing is when I go to open a file some are URL and some are .doc and it don't know which one to open I need a peace of code that will allow to be open the file and it automaticly detects its exttention so any file for .doc = moduel 1.main and for URL goes to moduel 2.main here is the code so far

Moduel 1

Module Module1

Code:

Sub Main()
        OpenMicrosoftWord("C:\Travel\" & Form1.ListBox1.SelectedItem.ToString)
    End Sub
    Private Sub OpenMicrosoftWord(ByVal f As String)
        Dim startInfo As New ProcessStartInfo
        startInfo.FileName = "WINWORD.EXE"
        startInfo.Arguments = f
        Process.Start(startInfo)
    End Sub
End Module

Moduel 2

Module Module2

Code:

Sub Main()
        Process.Start("C:\Travel\" & Form1.ListBox1.SelectedItem.ToString)
    End Sub

End Module

Load form1

Code:

For Each FileStr As String In IO.Directory.GetFiles("C:\Travel", "*.*")
            ListBox1.Items.Add(IO.Path.GetFileName(FileStr))
        Next

open Button1

Code:

If ListBox1.SelectedItem = "*.doc" Then
            Module1.Main()
        End If
        If ListBox1.SelectedItem = "*.URL" Then
            Module2.Main()
        End If

any thoughts on what I could do or that I am doing wrong will be appricated and notied

Many Thanks

[brandonio21]

Hello Bradely,

Have you tried using the

Code:

Path.GetExtension(Path)

code snippet? It may be what you are looking for!

[Bradley]

Many thanks this worked perfect and project is now completed thanks to your help I am most greatful and sure I will be back to help others and get more help lol I new it had to be simple it just depends what and that was the answer all the best.

Bradley

[Bradley]

Full Source code to Project

Imports

Code:

Imports System.IO

Moduel 1

Code:

Module moduel1
    Sub Main()
        OpenMicrosoftWord("C:\Travel\" & form1.ListBox1.SelectedItem.ToString)
    End Sub
    Private Sub OpenMicrosoftWord(ByVal f As String)
        Dim startInfo As New ProcessStartInfo
        startInfo.FileName = "WINWORD.EXE"
        startInfo.Arguments = f
        Process.Start(startInfo)
    End Sub
End Module

Moduel 2

Module Module2

Code:

Sub Main()
        Process.Start("C:\Travel\" & Form1.ListBox1.SelectedItem.ToString)
    End Sub
End Module

Form1 Load

Code:

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each FileStr As String In IO.Directory.GetFiles("C:\Travel", "*.*")
            ListBox1.Items.Add(IO.Path.GetFileName(FileStr))
        Next
    End Sub

Open Button

Code:

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        If TextBox1.Text = ".doc" Then
            moduel1.Main()
        End If
        If TextBox1.Text = ".url" Then
            Module2.Main()
        End If
    End Sub

Get Path Button this can be used for mouse down also

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Path.GetExtension("C:\Travel" & ListBox1.SelectedItem.ToString)
    End Sub

[brandonio21]

Awesome! Great work!