请问如何用两个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