Filenames in Listbox

[Frihi]

I use this code to show only files with a certain extension in a Listbox.

Dim files() As String = IO.Directory.GetFiles("c:\MyApp", "*.swf&quot
Dim file As String
For Each file In files
Me.ListBox1.Items.Add(file)
Next

This gives me the Files shown as:

C:\MyApp\myFile1.swf
C:\MyApp\myFile2.swf
...

But now I want to edit only the filenames, without Path and extension, like:

MyFile1
MyFile2
...

Can anyone give me a hint?

 

[JohnYingling]

sfile = System.Io.Path.GetFilename(sPath)
sFilNoExt = System.Io.Path.GetFilenamewithoutextension(sFile)

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Frihi]

Thank you. Meanwhile I've made it like that:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim files() As String = IO.Directory.GetFiles("c:\Path", "*.swf&quot
Dim file As String
For Each file In files
Me.ListBox2.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
Me.ListBox1.Items.Add(file)
Next
End Sub


Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Me.Flash1.LoadMovie(0, Me.ListBox2.SelectedItem)
End Sub

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
Me.ListBox1.SelectedIndex = Me.ListBox2.SelectedIndex
End Sub

I had to put 2 Listboxes, 1 to be able to display the names without extensions and the other to select the movies. Now I'm trying to make it with only one Box but I'm kind of stucked on it.