Contact: aviboots(AT)netvision.net.il
41,445 questions
53,992 answers
573 users
Imports System.IO Module Module1 Sub Main() Dim s As String Dim directoryName As String s = "d:\\directx\data.txt" directoryName = Path.GetDirectoryName(s) Console.WriteLine(directoryName) End Sub End Module ' run: ' ' d:\directx