Hvordan får jeg et stykke af en streng?

streng = "sdfgeradfgeas\sdtgershgt12\sdfasdf"
a = Split(streng, "\")
Sidste = a(UBound(a))
AndenSidste = a(UBound(a) - 1)

får følgende fejl:
Compile error:

Expected array

og UBound bliver makeret

kode:
Dim fullmappename As String
fullmappename = Mid(sti, 1, Len(sti) - 2)
Dim mappename As String
Dim a As String
a = Split(fullmappename, "\")
mappename = a(UBound(a))

a=instr(1,string,"\")
b=instr(a+1,string,"\")

resultat=mid(string,a+1,b-a)

øh, gider du uddybe det lidt?

Dim fullmappename As String
fullmappename = Mid(sti, 1, Len(sti) - 2)
Dim mappename As String
Dim a As variant ' må ikke være string
a = Split(fullmappename, "\")
mappename = a(UBound(a))

fullmappename = Mid(sti, 1, Len(sti) - 2)
er det samme som
fullmappename = Left(sti, Len(sti) - 2)

Hej for at finde en del af en tekststreng skal du først finde positionerne for dit tegn.
Følgende eksempel finder filnavnet fra en sti indeholdene mapper og filnavn.

Dim  as vblast integer, vblastdos as integer, vb lenght as integer
Dim Mystr as string

vbLastBS = InstrRev("Din tekststreng", "\", -1) + 1 'pos for første tegn i din tekst
vbLastDot = InstrRev("Din tekststreng", ".", -1) 'pos for sidste "."
vbLenght = vblastDot - vbLastBS
MyStr = Mid("Din tekststreng", vbLastBS, vbLenght)

VH

Jonas D

kabbak, smider du ikke lige et svar, så deler du og ser!

et svar ;-)