如何利用Path类处理.NET文件

Imports System.IO

Module Module1

Sub Main()

Dim testPath As String

Dim p1 As String

Dim p2 As String

Dim fnChars As Char()

testPath = "c:\techrepublic.txt"

p1 = "c:\"

p2 = "test.exe"

Console.WriteLine("Directory name: " + Path.GetDirectoryName(testPath))

If (Path.HasExtension(testPath)) Then

Console.WriteLine("File extension: " + Path.GetExtension(testPath))

End If

Console.WriteLine("Filename: " + Path.GetFileName(testPath))

Console.WriteLine("Filename w/o ext: " + Path.GetFileNameWithoutExtension(testPath))

Console.WriteLine("Full path: " + Path.GetFullPath(testPath))

fnChars = Path.GetInvalidFileNameChars()

If (Path.IsPathRooted(testPath)) Then

Console.WriteLine("Root: " + Path.GetPathRoot(testPath))

End If

Console.WriteLine("Random file name: " + Path.GetRandomFileName())

Console.WriteLine("Temp file name: " + Path.GetTempFileName())

If (File.Exists(testPath)) Then

Console.WriteLine("File does exist.")

End If

If (File.Exists(Path.Combine(p1, p2))) Then

Console.WriteLine("The file " + Path.Combine(p1, p2) + " exists.")

Else

Console.WriteLine("The file " + Path.Combine(p1, p2) + " does not exist.")

End If

End Sub

End Module