Imports System.IO
Module Module1
Sub Main()
Dim file_path As String = "d:\\data.txt"
Dim pathroot As String = Path.GetPathRoot(file_path)
Dim filename As String = Path.GetFileName(file_path)
Dim extension As String = Path.GetExtension(file_path)
Dim filenamewithoutextension As String = Path.GetFileNameWithoutExtension(file_path)
Console.WriteLine(pathroot)
Console.WriteLine(filename)
Console.WriteLine(extension)
Console.WriteLine(filenamewithoutextension)
End Sub
End Module
' run:
'
' d:\
' data.txt
' .txt
' data