請問如何用兩個text分別秀出filelistbox中所選的檔案名稱

Dim xx() As String
Dim i As Integer

xx = Split("F.I.R-月牙彎.mpg", "-")

For i = 0 To UBound(xx)
    MsgBox xx(i)
Next i

 

dim FullFileName as string
dim SplitArr() as string
dim FileName as string
dim MainFileName astring
'給檔案名稱
FullFileName = "F.I.R-月牙彎.mpg"

'分離原唱與歌曲名
SplitArr = split(FullFileName, "-")

'此時 SplitArr(0) = "F.I.R", 
'       SplitArr(1) = "月牙彎.mpg"
FileName = SplitArr(1)

'分離檔名與副檔名 - 
'這邊是偷懶所以用相同的陣列變數做..你可以先確認是不是可以這樣玩..
'太久沒做忘記以前怎麼弄得
SplitArr = split(FileName,".")

'此時的SplitArr(0) = "月牙彎"
'         SplitArr(1) = "mpg"

for ( i = 0 to Ubound(SplitArr) -1 )
   MainFileName = MainFileName & SplitArr(i)
next i