[原创]用DataGrid和System.IO类 查看计算机的所有驱动器和目录

 

        Dim dir As Directory 
        Dim item As String 
        Dim item2 As String 
        Dim info As DirectoryInfo 
        Dim tb As DataTable = New DataTable 
        Dim tr As DataRow 
        tb.Columns.Add("盘符", GetType(String)) 
        tb.Columns.Add("名称", GetType(String)) 
        tb.Columns.Add("创建时间", GetType(Date)) 
        For Each item In dir.GetLogicalDrives 
            For Each item2 In dir.GetDirectories(item) 
                tr = tb.NewRow 
                info = New DirectoryInfo(item2) 
                tr(0) = item 
                tr(1) = item2 
                tr(2) = info.CreationTime 
                tb.Rows.Add(tr) 
            Next 
        Next 
        DataGrid1.DataSource = tb 
        DataGrid1.DataBind()