Állomány információ

Első lépésként szükségünk lesz egy állományra, melyről meg szeretnénk tudni ezen információkat. Ehhez egy OpenFileDialog komponenst használunk, mellyel kiválaszthatunk egy tetszőleges állományt.

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
  CheckedListBox1.Items.Clear()
  CheckedListBox1.SetItemCheckState(CheckedListBox1.Items.Add(OpenFileDialog1.FileName), CheckState.Indeterminate)

A File osztály statikus GetCreationTime, GetLastAccessTime és GetLastWriteTime függvényeivel egy állomány név ismeretében lekérdezhetjük annak létrehozási, utolsó hozzáférési és utolsó írási időpontját.

File.GetCreationTime(OpenFileDialog1.FileName)        
File.GetLastAccessTime(OpenFileDialog1.FileName)
File.GetLastWriteTime(OpenFileDialog1.FileName)

Az állomány attribútumait a GetAttributes függvény adja vissza. Mivel egy állomány egynél több attribútummal rendelkezhet, így tesztelnünk kell azt, melyre kíváncsiak vagyunk, hogy egyáltalán tartalmazza-e az Attributes property az adott értéket. Teszteléshez egy logikai és kapcsolatra van szükségünk és az adott attribútum konstansára.

Dim attr As FileAttributes = File.GetAttributes(OpenFileDialog1.FileName)
CheckedListBox1.SetItemChecked(CheckedListBox1.Items.Add("Archive"), ((attr & FileAttributes.Archive) = FileAttributes.Archive))