VG

Dirk

Me.Text = IO.Path.GetFileName( _
  "D:\ACAD_2012_Support\2012_Bloecke\3_Möbelbeschläge\TBHÄF-GLTS-105°CRP_D.wmf")

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

        Dim fi As New IO.FileInfo( _
          "D:\ACAD_2012_Support\2012_Bloecke\3_Möbelbeschläge\TBHÄF-GLTS-105°C" & _
          "P_D.wmf")
        Dim full As String = fi.FullName
        Dim name As String = fi.Name

Dim fileName as String = IO.Path.GetFileName( _
  "D:\ACAD_2012_Support\2012_Bloecke\3_Möbelbeschläge\TBHÄF-GLTS-105°CRP_D.wmf")

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim str As String = _
"D:\ACAD_2012_Support\2012_Bloecke\3_Möbelbeschläge\TBHÄF-GLTS-105°CRP_D.wmf"
 
Dim parts() As String = str.Split("\"c)
Dim strende_version1 As String = parts(parts.GetUpperBound(0))
 
'Falls Kappzeichen enthalten (Contains):
Dim strende_version2 As String = str.Substring(str.LastIndexOf("\"c) + 1)