Ένας τρόπος είναι αυτός που περιγράφεται σε αυτό το άρθρο:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
Ένας δεύτερος και απλούστερος τρόπος είναι να χρησιμοποιήσεις τo COM library "Microsoft Shell Controls And Automation"
Ο σχετικός κώδικας θα μπορούσε να είναι κάπως έτσι:
Dim arrHeaders(41)
Dim i As Integer
Dim objShell As Shell
Dim objFolder As Folder
objShell = New Shell
objFolder = objShell.NameSpace("...") ' Folder goes here
Dim objFolderItem As FolderItem
objFolderItem = objFolder.ParseName("...") 'Filename goes here
For i = 0 To 40
arrHeaders(i) = objFolder.GetDetailsOf(objFolderItem, i)
Console.WriteLine(arrHeaders(i))
Next
Απ' όσο θυμάμαι τα objects του System.IO namespace δεν παρέχουν τέτοιες πληροφορίες...
Vir prudens non contra ventum mingit