DimdirAs Directory
Dim item AsString Dim item2 AsString 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))
ForEach item Indir.GetLogicalDrives
ForEach item2 Indir.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()
