Contact: aviboots(AT)netvision.net.il
41,685 questions
54,355 answers
573 users
Imports System.IO Module Module1 Sub Main() Dim s As String Dim root As String s = "d:\\data.txt" root = Path.GetPathRoot(s) Console.WriteLine(root) End Sub End Module ' run: ' ' d:\