Imports System.IO
Module Module1
Sub Main()
Dim P As String = "\"
Try
Console.WriteLine("Starting path: {0}", P)
Console.WriteLine("Directory name: {0}", Path.GetDirectoryName(P))
Console.WriteLine("Extension: {0}", Path.GetExtension(P))
Console.WriteLine("Filename: {0}", Path.GetFileName(P))
Console.WriteLine("Filename without extension: {0}", Path.GetFileNameWithoutExtension(P))
Console.WriteLine("Full path: {0}", Path.GetFullPath(P))
Console.WriteLine("Root: {0}", Path.GetPathRoot(P))
Catch E As Exception
Console.WriteLine("Error: {0}", E.Message)
End Try
Console.WriteLine()
End Sub
End Module
|
