Buď můžete čachrovat s funkcí IndexOf, anebo použít regulární výrazy (tady se zrovna docela hodí):
Dim cesta As String = Regex.Match("[^\\]*\\[^\\]*$").Value
Jen na vysvětlení: - [^\\]* je skupina znaků bez lomítka (název složky nebo souboru, \ se musí zdvojit, protože v regexpech je to spec. znak. - [^\\]*\\[^\\]* namatchuje řetězec typu "složka\soubor.přípona" nebo "složka\složka" - dolar na konci znamená, že za tou skupinou musí řetězec už končit, tím pádem to vybere "složka\soubr.přípona" Nejdřív si asi nahraďte v cestě dopředná lomítka zpětnými, aby to fungovalo. Sice by se tam dostat neměla, ale člověk nikdy neví.
|