vb System.IO.Path.GetPathRoot类(方法)实例源码

Dim pathname As String = "\mydir\"
Dim fileName As String = "myfile.ext"
Dim fullPath As String = "C:\mydir\myfile.ext"
Dim pathnameRoot As String

pathnameRoot = Path.GetPathRoot(pathname)
Console.WriteLine("GetPathRoot('{0}') returns '{1}'", pathname, pathnameRoot)

pathnameRoot = Path.GetPathRoot(fileName)
Console.WriteLine("GetPathRoot('{0}') returns '{1}'", fileName, pathnameRoot)

pathnameRoot = Path.GetPathRoot(fullPath)
Console.WriteLine("GetPathRoot('{0}') returns '{1}'", fullPath, pathnameRoot)

' 导入命名空间
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