Dim fl As New IO.FileInfo("D:\Diashows\Party Sabine 2003.exe")
   Dim fileName As New String(fl.Name) ' da die Eigenschaft fl.Name ReadOnly ist
   fileName = fileName.Replace(fl.Extension, "")
   MessageBox.Show(fileName)