VB -- aus dem wert "C:\123456.txt" den wert "123456" kriegen

[Jan Lauken]

Hi,

Danke!!!!!!!!
Mit volgendem schript hat es geklapt:

Private Sub Command3()
Dim Datei, file_basename, file_extension As String

Set fso = CreateObject("Scripting.FileSystemObject")
Datei = Text2.Text
file_basename = fso.getBaseName(Datei)
file_extension = fso.getExtensionName(Datei)
Text4.Text = file_basename
Text5.Text = file_extension
End Sub

Danke!!!!!!!!!!!!!!