Şekil 1
Imports System.IO
Module Module1
Sub Main()
Dim P As String = "C:\Test.txt"
Try
Console.WriteLine("Başlama Adresi: {0}", P)
Console.WriteLine("Directory Adı: {0}", Path.GetDirectoryName(P))
Console.WriteLine("Uzantı: {0}", Path.GetExtension(P))
Console.WriteLine("Dosya Adı: {0}", Path.GetFileName(P))
Console.WriteLine("Uzantı İle Birlikte Dosya Adı: {0}", Path.GetFileNameWithoutExtension(P))
Console.WriteLine("Tam Adres: {0}", Path.GetFullPath(P))
Console.WriteLine("Root: {0}", Path.GetPathRoot(P))
Catch E As Exception
Console.WriteLine("Hata: {0}", E.Message)
End Try
Console.WriteLine()
Threading.Thread.Sleep(10000)
End Sub
End Module
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Imports System.IO
Module Module1
Sub Main()
Dim P As String = "C:\Test.txt"
Try
Console.WriteLine("Başlama Adresi: {0}", P)
Console.WriteLine("Directory Adı: {0}", Path.GetDirectoryName(P))
Console.WriteLine("Uzantı: {0}", Path.GetExtension(P))
Console.WriteLine("Dosya Adı: {0}", Path.GetFileName(P))
Console.WriteLine("Uzantı İle Birlikte Dosya Adı: {0}", Path.GetFileNameWithoutExtension(P))
Console.WriteLine("Tam Adres: {0}", Path.GetFullPath(P))
Console.WriteLine("Root: {0}", Path.GetPathRoot(P))
Catch E As Exception
Console.WriteLine("Hata: {0}", E.Message)
End Try
Console.WriteLine()
Threading.Thread.Sleep(10000)
End Sub
End Module
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder