Tage en del af fil stigen?

dim strFil as string
dim strFilnavn as string
dim arrFil() as string

strFil = "C:\\Programmer\\Messenger\\msmsgs.exe"

arrFil = spilt(strFil, "\\")

strFilnavn = arrFil(UBound(arrFil))

prøv med følgende kode
filnavnet kommer i variablen strFilnavn

Hvad gør jeg forkert her.

Private Sub CmdÅbn1_Click(Index As Integer)
Dim strFil As String
Dim strFilnavn As String
Dim arrFil() As String

CommonDialog1.Filter = "Kun exe filer(*.exe)|*.exe"
CommonDialog1.ShowOpen

If CmdÅbn1(0) Then
    strFil = CommonDialog1.FileName
    arrFil = Split(strFil, "\\")
    strFilnavn = arrFil(UBound(arrFil))
    Txt1.Text = strFilenavn
End If
If CmdÅbn1(1) Then
    strFil = CommonDialog1.FileName
    arrFil = Split(strFil, "\\")
    strFilnavn = arrFil(UBound(arrFil))
    Txt2.Text = strFilenavn
End If
End Sub

når det virker med den her kode

CommonDialog1.Filter = "Kun exe filer(*.exe)|*.exe"
CommonDialog1.ShowOpen
If CmdÅbn1(0) Then
    Txt1.Text = CommonDialog1.FileName
End If
If CmdÅbn1(1) Then
    Txt2.Text = CommonDialog1.FileName
End If

Har også prøvet at placere koden før if sætningerne..

Fik det til at virke..

takker for hjælpen

Hvis der er andre der bruger koden og den melder fejl skal i rette "spilt" til "split" det skulle løse det.


Mvh Henrik Madsen