Contact: aviboots(AT)netvision.net.il
39,845 questions
51,766 answers
573 users
Imports System.IO Module Module1 Sub Main() Dim s As String Dim filename As String s = "d:\\data.txt" filename = Path.GetFileNameWithoutExtension(s) Console.WriteLine(filename) End Sub End Module ' run: ' ' data