Contact: aviboots(AT)netvision.net.il
40,875 questions
53,283 answers
573 users
Imports System.IO Module Module1 Sub Main() Dim s As String Dim extension As String s = "d:\\data.txt" extension = Path.GetExtension(s) Console.WriteLine(extension) End Sub End Module ' run: ' ' .txt