扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:builder.com.cn 2007年4月26日
关键字:
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
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。