Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Imports System.IO Imports System.Security.AccessControl Imports System.Security.Principal Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load FileFolderList() End Sub Private Function Owners(ByVal file As String) As String Dim di As New DirectoryInfo(file) Dim ds As DirectorySecurity = di.GetAccessControl() Dim ow As NTAccount = CType(ds.GetOwner(GetType(NTAccount)), NTAccount) Owners = (ow.ToString) End Function Private Sub FileFolderList() Dim files = From file In My.Computer.FileSystem.GetFiles("e:\") _ Select file Dim fileinfo = From file In files _ Select Path = My.Computer.FileSystem.GetFileInfo(file).FullName, SizeKB = My.Computer.FileSystem.GetFileInfo(file).Length / 1024, Owner = Owners(file) DataGridView1.DataSource = fileinfo.ToList DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells End Sub End Class