VB.Net Tutorial/Stream File/FileInfo

FileInfo.IsReadOnly, FileAttributes.Hidden

<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>

False
False

Get File Attributes as a string

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo

       fileDetail = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine("Attributes: " & fileDetail.Attributes.ToString())
   End Sub

End Class</source>

Attributes: Archive, NotContentIndexed

Get file Creation Time, Last Access Time and Modified Time

<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>

Created: 11/05/2007 9:20:09 PM
Accessed: 11/05/2007 9:26:39 PM
Modified: 11/05/2007 9:26:04 PM

Get file extension name

<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>

.txt

Get file size

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo

       fileDetail = My.ruputer.FileSystem.GetFileInfo("test.txt")
       Console.WriteLine("Size: " & fileDetail.Length & " byte(s)")
   End Sub

End Class</source>

Size: 343984 byte(s)

My.Computer.FileSystem.GetFileInfo(""File Name"")

<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>

False
False

Set file attributes: Hidden, ReadOnly

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
   
       Dim fileDetail As IO.FileInfo = My.ruputer.FileSystem.GetFileInfo("yourfile.jpg")
       fileDetail.IsReadOnly = True
       fileDetail.Attributes = fileDetail.Attributes Or IO.FileAttributes.Hidden
   End Sub

End Class</source>