Help with a program that plays stored video files

I'm trying to build a program that reads files I've burned into a cd. To be more specific, the files are Real Video files. I want to make a combo list in which I can select the episode then click on a command button to activate it.

Can someone please help?

P.S. The video files are stored into a different directory of the application itself, so I also need to know how to use the "app.path" function. THANKS !!!

Can anyone help?

Code:

---

Private Sub Command1_Click()
Dim TempStr As String

TempStr = Dir("D:\*.rv")
While TempStr <> ""
    Combo1.AddItem TempStr
    TempStr = Dir
Wend
End Sub

---

I'm assuming all files are in the same directory. I don't know the extension to real video files so I made it rv. Change the extenstion to what it really is.

App.path will return the path to the directory where the app is stored.

Thanks! I'll try it out !