VB.Net by API/System.IO/FileInfo

FileInfo.CreationTime

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo

       fileDetail = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine("Created: " & fileDetail.CreationTime)
       Console.WriteLine("Accessed: " & fileDetail.LastAccessTime)
       Console.WriteLine("Modified: " & fileDetail.LastWriteTime)
   End Sub

End Class

 </source>

FileInfo.Extension

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo

       fileDetail = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine(fileDetail.Extension)
   End Sub

End Class

 </source>

FileInfo.FullName

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim Root As New DirectoryInfo("C:\")
       Dim Files As FileInfo() = Root.GetFiles("*.*")
       Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
       Console.WriteLine("Root Files")
       Dim Filename As FileInfo
       For Each Filename In Files
           Try
               Console.Write(Filename.FullName)
               Console.Write(" Size: {0} bytes", Filename.Length)
               Console.WriteLine(" Last use: {0}", Filename.LastAccessTime)
           Catch E As Exception
               Console.WriteLine("Error accessing File")
           End Try
       Next
   End Sub

End Module

 </source>

FileInfo.IsReadOnly

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine(fileDetail.IsReadOnly)
       Console.WriteLine(CBool(fileDetail.Attributes And IO.FileAttributes.Hidden))
   End Sub

End Class

 </source>

FileInfo.LastAccessTime

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim Root As New DirectoryInfo("C:\")
       Dim Files As FileInfo() = Root.GetFiles("*.*")
       Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
       Console.WriteLine("Root Files")
       Dim Filename As FileInfo
       For Each Filename In Files
           Try
               Console.Write(Filename.FullName)
               Console.Write(" Size: {0} bytes", Filename.Length)
               Console.WriteLine(" Last use: {0}", Filename.LastAccessTime)
           Catch E As Exception
               Console.WriteLine("Error accessing File")
           End Try
       Next
   End Sub

End Module

 </source>

FileInfo.LastWriteTime

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo

       fileDetail = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine("Created: " & fileDetail.CreationTime)
       Console.WriteLine("Accessed: " & fileDetail.LastAccessTime)
       Console.WriteLine("Modified: " & fileDetail.LastWriteTime)
   End Sub

End Class

 </source>

FileInfo.Length

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim Root As New DirectoryInfo("C:\")
       Dim Files As FileInfo() = Root.GetFiles("*.*")
       Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
       Console.WriteLine("Root Files")
       Dim Filename As FileInfo
       For Each Filename In Files
           Try
               Console.Write(Filename.FullName)
               Console.Write(" Size: {0} bytes", Filename.Length)
               Console.WriteLine(" Last use: {0}", Filename.LastAccessTime)
           Catch E As Exception
               Console.WriteLine("Error accessing File")
           End Try
       Next
   End Sub

End Module

 </source>